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00010000 780223 
SEQ 


COl 


THIS orngios tie E EXERCISES ee “ARI pal a ant oe CIRCUITRY. THE PROGRAM 
WHEN S ate WIL 


OUT 
A THEN PRIN oR ett i 
Ue Rad NACE ie Wei WO ARUA e,ogo 
THEN WAITS IN N A KE ARO MODE ten wie To BE" TYPED. 
THAT TEST I oe TES" IRST Be PUR ANS Aa MY BEE BNAL 

Ae gas ae GER MS 
Cn Me TYPING ¢ PORSTBLE ’C’ KEYS SIMULTANEOUSLY) 
ete rele PROGRAM TO RETURN TO 


Peele rere eine? Ot 


UNL IKE Re TESt c THI of ea mot S NOT DETERMINE ir ADDITIONAL 


T 
t WEEE ENABLE THE LETTER 


RUN _ANOT! AR11, THE OPERATOR MUST 
SS INDIVIDUALLY. 


Uae MOOIETED 40 ENABLE THe OPERATOR TO CHECK QUT The Rit 


OPTION T 1 SINIte 8 eT¢inet  Biagno Bek fa. IS 
Sathana TE Weal eb SETH cou RST ge Be, 
IF THIS D SN’T FINO A SUSPECTED PROBLEM, YOU Mi 


BEE 18, ran rood SBT AGNOSTIC. UPLEASE READ tert as ORLA 


a fered COMPUTER WITH 8K OF MEMORY 
B. TELETYPE 

Cc. alg! HEX On TON MODULE SNS TALES 
D. VOL ANDARD (E.0.C.) 

E- VR14 TOR E SCOPE 

° UPALISKX SYST 


Wie RESRAY ASGRLENE gooagge, 15 "200". 


CONSOLE SWITCH SETTINGS 


N_MODIFIED TO RUN WITH OR 
SWITCH REGISTER. 


TH 5 {Roane es 
wit 
8: ‘Beet OTH Vou, Teor ‘BéschiPrTons’ FoR aPecfcRace 


£ SWITCH SETTI 
THES ERT TYPING ’S WILL 
near HA ra THE Hes ere. 6 BE LOADED FROM THE TELETYPE 
° ‘CARRIAGE RETURN” (CR) TO TERMINATE ALL INPUT DATA. 


SEQ 0002 


SEQ 0003 


DO1l 


QUICK STATIC REGISTER TESt 


TPS. FESGdS PEP PARES ARN FRET": PERLGLE oY ESREEDT =O TEST 1M TTS Proc 


STARTING SEQUENCE 


3: THee PROGRAM it te TREN Seth ae aT) aot “REGISTER TEST. 


CONTROL SWITCHES 


1. TYPING tC AT ANY TIME WILL ENABLE THE PROGRAM TO EXIT 
AND RETURN TO THE MONITOR. 


CONSOLE SWITCHES FUNCTION 
cONSOLE aus ~ HALT _ON ERROR 
13=1 INHIBIT ERROR TYPEOUTS 


ERRORS 


THIS PROGRAM USES THE DIAGNOSTIC *’SYSMAC’ PACKAGE FOR 
ERROR REPORTING AND TYPEOUT. REFER TO THE “ERROR POINTER TABLE” 
FOR TYPE OF LOGIC ERROR AND DESCRIPTION. 


RESTRICTIONS 


SE@ 0004 


V« 


EOL 


A. THIS TEST IS DESIGNED TO AID IN THE ADJUSTI 
OF THE VR14 OR STORAGE SCOPE SCOPE ON THE AR 


B. STARTING SEQUENCE 


1. TYPE ’B’ TO RUN THE VISUAL DIStLOY TEST. 
2. THE PROGRAM WILL THEN EXECUTE THE VISUAL DISPLAY TEST. 


C. CONTROL SWITCHES 


1. TYPING tC AT ANY TIME WILL ENABLE THE PROGRAM TO EXIT 
AND RETURN TO THE MONITOR. 


NG A 
1 


ND ALIGNMENT 
1 OI 


CONSOLE SWITCHES FUNCTION 

CONSOLE SWO8=0 LOOP THRU DISPLAY TEST 
CONSOLE SWO8=1 SELECT TESt IN SW 00-02 
CONSOLE -02=0 DISPLAY A HORIZONTAL LINE 
CONSOLE -Oe=1 BEaeLay A VERTICAL LINE 
CONSOLE SWOO0-Oe=e ISPLAY A SQUAR' 

CONSOLE SWOO-Oe=3 DISPLAY AN "xX 


NO PROVISIONS ARE MADE FOR LOGIC ERRORS. THE ONLY ERRORS 
IN THIS TEST ARE CHECKED VISUALLY. 


E. RESTRICTIONS 


IF YR14, CHANNEL SWITCH MUST BE SET TO “1 & 2” POSITION. 
IF STORAGE SCOPE, POWER MUST BE APPLIED. 


F. EXECUTION TIME 


IT TAKES APPROXIMATELY 60 SECONDS TO THIS TEST. 


SPLAY CONTROL. 


SEQ 0005S 


| 
| 


FOL 


DISPLAY HORIZONTAL LINE 


A HORIZONTAL LI DISPLAYED ON THE SCO INITIALLY 
SETTING THE X Y DAC’S TO ZERO AND THEN INCREMENTING 
THE X VALUE WHILE HOLDING THE Y VALUE AT 1 THE POINTS 
ARE SISPLAYED USING THE DISPLAY INTERRUPT ENABLED. 


DISPLAY VERTICAL LINE 


A_ VERTICAL DISPLAYED ON THE SCOPE IN THE SAME MANNER 
As FOR , B HORLSONTAL tA CINE EXCEPT NOW THE Y VALUE 
Is TNCREMENT WHILE HOLDING THE X VALUE AT 1000. 


DISPLAY SQUARE 
A Sau SPLA D. BY INITIALLY SETTING THE 
GATIVE Fut Se ch T x IS 
eat OTTOM “They 
Ba ar re hs 
FU GEL eid LiBET LINE). RODE ft) 
AND MODE 10 (INTENSIFY ON LOADI 


DISPLAY X 


Lary 
0 NE 


aa 
CG 
i 
- 
w 
iO 
i 
m 
z 
S 
a) 
Ll 


SE@ 0006 


GOl 


A TO D CALIBRATION TESt 


THE "$e Set FENeT ton TEST IS DESIGNED TO aCCEPT AN INPUT 
FR T Rs CATE THE TYPE _OF “ayn (EXTERNAL 


eae Be e. Saree vet 


AND THE ES CONTINUOUS 
He THe CONSOLE SWITCHES. 
TIME HIS CAN ALSO BE 
USED FOR FINDING SO-SO AND FOR FINDING MIDDLE OF 

A STATE FOR SUBSEQUENT REPLATABIL TS Y TEST. 

STARTING SEQUENCE 


TYPE °C’ TO RUN THE A/D CALIBRATION TEST. 
THE ITEST HEADER PLUS A REQUEST FOR A SYNC TYPE WILL 

TYPE _IN THE DESIRED SYNC, *I’ FOR INTERNAL, 'E’ FOR EXTERNAL 
°C’ FOR ARI1 CLOCK FOLLOWED BY ’CR’. 

THE TEST WILL START. 


CONTROL SWITCHES 


TYPING tA WILL ENABLE A NEW SYNC TYPE TO BE ENTERED. 
2. tC (CONTROL C) 


TYPING tC WILL CAUSE THE PROGRAM TO EXIT THE CALIBRATION 
TEST AND RETURN TO THE MONITOR. 


3. CONSOLE SWITCH FUNCTION 
CONSOLE SW ’0-3’ prey Th 
NSOLE SW OS = 0 Selec TPOLAR C INNE 
NOOLE au OS = 1 a pot UNIPOLAR CANN L 
CONSOL 06 = 0 SAMPLES 
CONSOLE SW 06 = 1 FREEZE ON CURRENT DATA 
CONSOLE SW 10 = 1 PRINT CONVERSION VALUE 


10. 


HO1 


A TO D REPEATABILITY TEST 


ARS nSBE" oP* SHERAT Sn"'o Be POBEB FR By TEE OPERATOR 


BORERST Ons RAE THe CONVERS. a AKEN ON T we ie CH. (S) 
F_ THE “OE THE D IS 


AnD I 
aS eet TH eee re Setuet "CONVER 
TESTED VI TYPING E ’ Fert A SINGLE 

N,NC(CR)’ TO TEST A RIES 


STARTING SEQUENCE 


1. T ai THE *REPEATABILITY’ 
é. A REQUEST Ts Ys pene MADE FOR CH.(S) TO "Be te tED AND 
RANGE IN WHICH ALL 512 COU UNTS MUST FALL 
FOR_THE CH 10 SONSTOGRED gg aie OG 
3. IF THE CHANNEL IS FOUND TO BE WITHIN THE oe ec ree COUNT 
THE PRO WILL EITHER CONTINUE TO THE NEXT 
CHANNEL IF SELECTED OR RETEST THE CURRENT CHANNEL. 


TYPING A tA WHILE THE PROGRAM IS RUNNING WILL ENABLE 
A NEW CH.(S) AND COUNT SPREAD TO BE SELECTED. 


2. tC (CONTROL) 


TYPING tC WILL CAUSE THE PROGRAM TO EXIT THE ’REPEATABILITY’ 
TEST AND RETURN TO tHE MONITOR. 


3. CONSOLE SWITCHES FUNCTION 


Cc OLE = 10=0 PRINT ERRORS ONLY 
ONSOL 10=1 PRINT OUT ORCL CONVERSIONS 
CONSOLE SW 13=0 at ERRORS 
ONSOLE SW 13=1 INHIBIT we wat PRINTOUT 
CONSOL a} ieny pe NOT HA PON R PeaTABLaTy REPORT 
CONSOLE SW 15=1 HALT UPON” RE EATABILIT 


SE@ 0008 


I0l 


REPEATABILITY ERRORS SEQ@ 0009 


ON ENCOUNTERING AN ERROR (CONSOLE SWITCHES DOWn) THE ERROR | 
DATA IS TYPED OUT. 


1. ERROR FORMAT 


CH HI AV LO 

2] 8 C D 

LO -S -4 -3 -2 -1l . + 

L BEING TES 

B=THE HIGHEST READING OF THE ’°S12’ CONVERSIONS 

= READING OF THE ’Sl2’ CONVERSIONS 

D=T OWEST READING OF THE ’Sie2’ CONE IONS 

=Nu COUNTS ’OUT OF * LOWER THAN S COUNTS 
F-J= R OF COUNTS IN EACH PART LOWER THAN AVERAGE. 

= R OF COUNTS AT AVERAGE OF THE ’S1e2’ 
L-P=NUMBER OF COUNTS IN ae PART HIGHER THAN AVERAGE. 

=NUMBER OF COUNTS ’OUT OF RANGE’ HIGHER THAN S COUNTS 


1. IF A SECOND CH. _IS ENTERED, IT MUST BE LARGER THAN THE FIRST 
CH. OR THE INPUT WILL NOT BE ACCEPTED. 


ll. 


JOl 


A TO D RECOVERY TESt 


py, Mi NEL SETTLE nESh. IS DESIGNED TO DETERMINE THE INTER- 
a aL CAPABILITY OF THE onus A TO D’. THE TEST 
oa > oo se) CH. NPUTS TO bE TYPED IN. 
rs. : Te TAKE A SERIES SIXTEEN (16) CONVERSIONS (8 ON 
, Fe ne N TYPES “a THE *8”’ AVERAGE VALUES IN 
HE MORDER * Y WERE TAKEN ON THE SECOND CH. 


STARTING SEQUENCE 


1. TYPE °E’ TO RUN THE RECOVERY TEST. 
§- A REQUEST IS THEN MADE FOR THE CH.S TO BE TESTED. 
. TYPE °’N,N (CR)’ WHERE ’N’ IS ANY CH. 
4. THE PR WILL THEN TAKE CONTINUOUS — TYPING 
OUT THE CONVERSION VALUES FOR THE SECOND C 


EXAMPLE : 
CH. A  XXXX XXXX XXXX XXXX XXXX XXXX XXAK XXXX 
WHERE : 

= THE SECOND CH 


= THE ’8’ CONVERSIONS TAKEN ON THAT CH. 


C. CONTROL SWITCHES 


TYPING A ’tA’ WILL ENABLE A NEW SET OF CH.S TO BE ENTERED. 
2. t C (CONTROL C) 


3. CONSOLE SWITCHES FUNCTION 

CONSOLE SW 10 = 0 PRINT RECOVERY REPORT 

CONSOLE SW 10 = 1 INHIBIT PRINTING OF RECOVERY REPORT 
RESTRICTIONS 


SEQ 0010 


ee 


KOl 
12. MISC. INFORMATION 
eeccnncenanenane SEQ 0011 


12.1 ACT-11 OR XXDP 


IF THE PROGRAM WAS LOADED FROM ACT-11 OR CHAINED FROM XYDP, THE 
VISUAL DISPLAY TEST WILL BE RUN. 


12.2 APT 
THE APT HOOKS HAVE BEEN INSTALLED BUT NOT TESTED. 
12.3 USER LINK TO I70 DEVICE 


A SPECIAL_USER LINK HAS BEEN PROVIDED IN ones R FOR THE 
OPERATOR TO EXAMINE OR MODIFY LOCATIONS ON on LPA11-KX 
170 BUS. (NOTE: THIS CANNOT BE DONE DIRECTL 


PROCEDURE : 
1) START THE PROCESSOR AT LOCATION SUTK: 
2) THE DIALOG TO EXAMINE A LOCATION IS AS FOLLOWS: 
E OR DO ~ ow 
DEVICE ADDRS= “OCTAL ADDRS” 
XXXXXX 
WHERE XXXXXX IS THE CONTENTS OF THE SPECIFIED LOC. 
3) THE DIALOG TO MODIFY A LOCATION IS AS FOLLOWS: 


E OR D a 
DATA= “DATA TO BE DEPOSITED” 


4) THE PROGRAM WILL _STAY_IN THIS LOOP UNTIL THE OPERATOR 
Is CINISHED. AT THIS TIME THE PROCESSOR SHOULD BE 
HALTED. 

NOTE: THE OPERATORS RESPONSE IS ENCLOSED IN QUOTES. 
| 13. PROGRAM VARIABLE LOCATIONS 


LOCATION CONTAINS THE ARI1 STORTING DEVICE ROQRESS <170400> 
LOCATION SVECT1 CONTAINS THE ARI1 STARTING VECTOR <340> 


L_ CONTAINS THE TTY F 
LOCATION ON SPILLS CONTAINS THE TTY PCEER” CHERACTER COUNT 


NOTE: IF LOCATIONS SBASE OR SVECT1 ARE CHANGED, THE TESt 
MUST BE RE-INITILIZED AT 200. 


/ 44, TABLE OF CONTENTS 


ATTACHED 


LOL 


LPAL1 (SYSTEM) DIAGNOSTIC SUMMARY 


prams Tics FOR THE LPA11 ARE WRITTEN AT THREE LEVELS: (1) 
OTAL PDP-11 SYSTEM, (2) LPAl1 SYSTEM; AND, (3) LPA11 OPTIONS. 


LEVEL _1, IS DESIGNED TO ISOLATE A FAILURE TO THE LPAI1 SYSTEM. 
ALL OPTtONe ON THE PDP-11 ARE EXERCISED. 


Wty HEN rhectparts te Crvet e er Otneno sfrc"h NOTVIDUBL OPTION 
ae He CON WHICH OPTION DIAGNOSTIC 
PETE BERRY HOT T Leas Braenostic. 


EEL AREF, pTaavOSTTES MER DM DETERS He THES FRROY. B. J 


iol, Te oi Re am arte te "Ok Phd 
GROUP (GROUP “Br) REQUIRES THAT THE RECONFIGURE THE. POP=11 


REQ 
SYSTEM. THIS RECONFIGURATION INVOLVES RCABLING THE UNTBUS TO THE 
LPA’S I70 BUS. 


THE DIAGNOSTIC FOR THE M8254 FALLS INTO THE GROUP “B” CATAGORY. 


mix 
z 


2 
= 
mm 
xm 
="5 
3, 
Aan 
Cm) 


S€@ 0012 | 


| 
| 


MOl 


SEQ 0013 | 

OPTION GROUP DIAG. 8 OIAG. TITLE 
LPALI-KX LEVEL 2 MD-11-DRLPA LPAL1-kK SYSTEM DIAG. 
me2S4 “B” MD-11-DRLPN M8254 (IPBM) DIAG. 
AALI-K A MD-11-DRLPB AALI-K DIAG. 

B MD-11-DZAAC AALI-K DIAG. 
ARLI A MD-11-DRLPC LPA/ARI1 DIAG. #1 

A MD-11-DRLPD LPAVARI1 DIAG. #2 

A MD-11-DRLPE LPAVARI1 DIAG. #3 

B MD-11-DZARA ARL1 DIAG. #1 

B MD-11-DZARB AR11 DIAG. #2 

B MD-11-DZARC AR11 DIAG. #3 
DR11-K A MD-11-DRLPF LPA/DR11-K DIAG. 

8 MD-11-DZDRG DR11-K DIAG. 
KWL1-K A MD-11-DRLPG LPA/KW11-K DIAG. 

B MD-11-DZ2KWK KW11-K DIAG. 
LPS11 A MD-11-DRLPH LPA/LPS11 DIAG. #1 

A MD-11-DRLPI LPA/LPS11 DIAG. #2 

A MD-11-DRLPJ LPA/LPS11 DIAG. #3 

B (MD-11-DZLPC LPS11 DIAG. #1 

B MD-11-DZLPD LPS11 DIAG. #2 

B MD-11-DZLPI LPS11 DIAG. #3 
AD11-K A MD-11-DRLPK LPA/AD11-K DIAG. 

B MD-11-DZADL AD11-K DIAG. 
me200-YC B MD-11-DZLPL LPA/MB200-YC BASIC 

MICRO-CPU R/W TESt 
B MD-11-DZLPM LPA/MB200-YC 


JMP+ROM READ TESTS 


NO1 


tl 1-DRLPD-A MACY11 4 (654) 14-DEC-77 20:22 | 


BASIC_DEFINITIONS 
OPERAT ew SETTINGS 


DRLPD.P TABLE OF CONTENTS SE@ 0014 — 
4 
1S6 
168 TRAP § 
177 TART ieee SS(ES) 
181 Tl 
1 RET PaRanE meen BLOCK 
214 
ebe ILBOK-ET 
330 ERROR PO ai 
426 NITIALI 
584 C LINE 
$98 staat 
aT (DISPLAY SQUARE ) 
804 END OF 
Seu is ey £5 nu 
it 4 Te ht ae W vest 
1358 T10 RY. NT NUMBERS INTO DIFFERENT REG. 
1458 Cc T BINARY TO DECIMAL AND TYPE ROUTINE 
2011 sc R ROUTINE 
2077 RROR pout It 
$157 RR Ss T Bey ROUTINE 
2174 R UP TINES 
eces INARY TAL (ASCII) AND TYPE 
2302 YPE a 
2381 TTY INPUT ROUTINE 
eS2e0 READ AN OCTAL_NUMBER FROM THE TTY 
2558 APT COMMUNICATIONS ROUTINE 
2615 TRAP VECOpER 
2638 TRAP TABLE 
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MACY11 27(654) 


MAINDEC-11-DRLPD-A 
ORLPA. MAC 





SE@ 0015 


Gu" 
Ou 
TI 
GOOD LUCK ! 


THIS DIAGNOS 


.REM 


-GLOBL DRLPXe2 


“AMUMOTMNO-DCOAUMNTMNWOFOM 


Od ad ad od od wh wd ot 


UOT 
cunucucy 


cut 


too 
cucucu 


MAI Ws 11-DRLPD-A 
DRLPO.P11 


4 001100 


49 


MACY11 27(654) 


COe 
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primers 


 tProcren BY EDWAED C. BADGER 


THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
PER. (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976. 


: % 
"SBTTL BASIC DEFINITIONS 
it ag ITAY SORES OF THE STACK POINTER ##* 1100 ##% 


K= 
"EQUI GAT, ERROR ea DEFINITION OF ERROR CALL 


5 #MISCELLANEOUS DEFINITIONS 
HT= 11 33 “Pr TAB 
LF= 1 33 
CR= 1 99 


bi oe 
ee 
shaun. (PH crac wana peazsren 


pais. 177858 


wreres REGISTER 


He BMS ROLE 


; #GENERAL PURPOSE necIsTER NIT 
ko= 3 G TER 
Ris %1 33 RAL REGISTER 
ne ditemt Getteren 
+ 4 fe ee 
RY= “4 33 RAL TER 
RS= “5 33 RAL TER 
R6= % 33 RAL REGISTER 
R7= %7 3 RAL G TER 
SP= wr 33 K an 
PC= % 33 OUNTER 
“PRIORITY LEVEL DEFINITI 
bro= 0 1ORR OR TY L VEL rs) 
PRi= 40 53PR TY LEVEL 1 
PRe= 100 ;; PRIORITY L é 
PR3= 40 ;;PRIORITY LEVEL 
PR4= ;;PRIORITY LEVEL 4 
PRS= 0 ;;PRIORITY LEVEL § 
PRb= :PRIORITY LEVEL : 
PR7= tt pR ORITY LEVEL 
TBHITCH REGISTER” SWITCH DEFINITIONS 
ai 0000 
SWwi4= 40000 


SEQ 0016 


SE@ 0017 


DOe2 
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BASIC DEFINITIONS 


MAINDEC-11-DRLPD-A 


DRLPO.P11 


Fadaaaaaae 


eo eeeece... BIS 


2>>>>>>>>> 


od ee eecasousscaascaas 


HHDHGHOKT OTST OO eTOOOGOOOSOS 


FINITIONS (BITOO TO BIT1S) 


8 romepreen 


O=mUMTMOKR OM 
At tt 


COnrOuNTMU-O 
RRR EER REE 


ayaafafaferst=faf=} 


Feerrrrrre 
44 4 0 
fester leclesTer er celestesles) 


MAGUUAU LUAU AME 


a dh a a ad a dd dd ad dd md dd nd nd ad a ad nd dd ad ed dd od 


;#BASIC “CPU” TRAP VECTOR ADDRESSES 


ss 
Uv 


BOBLTR LOM BIGIT LIV SOO ION LUV ODOT LOM ODDITHLOMHODD | 


ee 


+ 
- 


ia 
> 
=>. 


£££0 


e 


; 
8 


: 


8 
Bd 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


wo 
= 





a 


E0e 
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2a SE@ 0018 


RRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
RESVEC= 10 ;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 ii . BIT 

= 14 : TRACE TRAP 
TVEC= 14 ;;BREAKPOINT TRAP (BPT) 
Tor C= o i T/QUTPUT TRAP (IOT) *#*#SCOPEs# 
= * POWE 

MTVEC= 30 {EMULATOR FRAP (EMT) *##ERRORS# 

RAPVEC= T TRAP 
TKVEC= 33T Y KEYB OARD VECTOR 
TPVEC= 64 si TtY INTER VECTOR 
PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 


eee TS a 
APRYOR=200 
TTL OPERATIONAL SWITCH SETTINGS 


ip ee ee LD 


ATIONS FROM 4 - CONTAIN A_™.+2,HALT” 
si a Het CSATOHNICREGAL, TRAPS NS INTERRUPTS ope 
2] 
le aaa 1s SOFTHARE DISPLAY, REGISTER 
BEGINI ain fF bic STARTING PTO Se TART SCORESS 


-SBTTL ACT11 HOOKS 
Dane en nar 27 et emcee atest ett es ed 


t HooK S REQUIRED BY ACT11 


;SAVE PC 
sENBA0 ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
= 
“WORD O ;;2)SET LOC.S2 TO ZERO 
: =$SVPC af RESTORE PC 


[SBTTL APT PARAMETER BLOCK 


EEE 


33 


NDEC-11-DRLPD-A MACY11 27(654) 
PD. 11 APT PARAMETER BLOCK 
192 

133 

ig¢ 

196 001000 

197 p00024 

198 oo00024 00 

a9 0044 

348 ooo044 1000 

201 1006 

505 

204 

20s 

206 001000 

207 001000 

£2 B8108s Bods 

210 OO01006 O00060 

211 001010 o0012e0 

2l2 o00101e o000Se 


FOe 


14-DEC-77 20:22 PAGE S 


s RRR MRR RRR RRR REE RRR E RRL RRR RRR HES 


ise LOCATIONS 24 44 AS RED FOR AP 
5 Me a Me HEH HEH He HME HE He EH EH EE RARER REE REE EERE R EERE 


mh SET pS PONE PA ae TOINT TO START OF PROGRAM 


ant “het I cT ena PNTR. 
seehnon {iBEINT 18 Ger PRIERD BD 
3 ieevaesitineveubbuerseuevaunaeseusenstuauxeusevseusensuseusenes 
SET T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
t TNTERFACE SPEC. 
Shier: -WORD O ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
AOR: .WORD S$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

Hit HOR 30 3; RUN +f OF Lonee> TEST 
SPASTM: .WOR 60 3 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT 
UNITM: .WORD 120 ,; ADDITIONAL RUN its (SEES) OF A PASS FOR 

WOR SETEND-SMAIL72 ; ;;LENGTH MAILBOX-E TABLE (WORDS) 


SEQ 0019 





G02 
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DRLPD.P11 COMMON TAGS SEQ 0020 | 
213 .SBTTL COMMON TAGS 
21s ; iTHIe TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
216 PATH E CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
217 USED IN HE PROGRAM. 

218 
: SCMTAG: ~ ;;START OF COMMON TAGS 


Bs 
: 
38 8 
8 


ane ERROR FLAG 


33 HSONTaL SEE be, peAODRES Se eons 


888888888888 


ee ee a ee 





fururururorurorurufu forurururvrurury 
BIERZSRHKS SBN or 
BZoccecosoos~eoo0cooo 
: HS 
D 


100 
19g 
10g 
1 
18 
ig 
Bit 
' » ’ ’ T 
Bie beens “HOR bi re a *600 paTAY 
ee eeegiag ” ee 
001130 600000 . WORD ;;RESERVED--NOT TO BE USED 
881135 SAUTOB: :BYT 5 OuToRRT C MODE INDICATOR 
Otte 000 SINTAG: .BYT ; INTE T MODE INDICATOR 
$33 1138 99008 SWR: : WR ADRESS OF SWITCH REGISTER 
sie Solis | 7re08 Siig: y2eeeg a! 
TKB: 
244 Bt 177564 ee 177564 ETT BRI TATUS REG. ADDRESS 
ee ne "B F 1 ‘Bit : Ho vai 8 p j Fe ete ReQurRED 
Bae i ee Trt a hata Othe atl ores 
te r ee -O0= 
011 bles } CONTAINS aboRe 
gene EO eH.  sREGO) TAINED 
252 001162 oo00000 SREGO: .WORD 9 33¢ BINS (¢ +0) 
a Bn Be pire 8 agi asl aboneda™ 
O11 E: # ; ss 
B0117 1 000377 LL: -ASCIZ <207> <377><377> + ESBE FoR BELT 
cee Oley Bie sor: ceeety Ge 1 Seem Age Reon 
2 wt : jjeeeainevasuntastuanssusensnabbiavaenatnennsuannennsenacsenaes 
ey » « * grnpemecaa tran atieiatss ap aapanea beatae ic manta 
6S o001202 SNAIL: ;;APT MAILBOX 
266 O01202 oon000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 


Sah ft a 
APT MAILBOX-ETABLE 


ORLPO.P 


SEHR CR SSE SERS REE 


e\@ @)\2 @)\e¢)\e2 2 @ 


*\2 = 
ee eh ee ee ee be 


WW 


ara 
=r 


ST aa aT erat a 
ONCU LS WlU-O 


Metatetatetetatatetas 


- 
= 


SOOO 
7 +> 

= e\e\e @ 
. 


Pee 
win 


8888888888 


SRERES INSTT RER IE aes 





831539 
oo0d00 
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FATAL: .W AFATAL 
Sige": Hep Alkal” | 
SDEVCT . WORD on; 
SHeAAS. :HORD 

SMSGLG “WORD AMSGLG 
Hat Tee -BYTE ENV 
E /BYT AENVM 
SCPUOP: : ACPUOP 
S 

3% 

3% 

+ 

-% 

$ 1: .BYTE AMAMSI 
SNTYP1: BYTE AMTYPL 
: 

: i 

if 

$MADRI: .WORD 


aif, 


seat 


Brn) 





EO 


-—O: 


HO2 
~ 


Ed ae 
ee : 


jase mat 
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cae 11720203, 11740=04, 11745=05 
7, @=10 


-- (HIGH BYTE) 


7. wit 


| 7 At gis 
HIRTERSUET VEE BARES cosonre 
; RADORESS OF EQUIPMENT UNDER TESt 


BE SSRIPy ION HORDae 


ee 


& DE DE DE PG IG DG DG | ~ $= ‘of. 
ha bd P * 


io 

Gs Guswaeaeey 
WVU 
= 


=? 
a 


OO 249,919,919) 2 2,2) © a 


testarocts 


<<<<<<<<<<<< 


4-4 0-4 0-904 0-44 4 0090 


mm 


sf oyr he” » THIS WORD AND LOW OF “TYPE” ABOVE 
nas gam 
a ah "BYTE 


SEQ 0021 


SEQ 0022 


14-DEC-77 20:22 PAGE 8 


(654) 
E 


MACY11 27 
APT MAILBOX-ETABL 


~11-DRLPD-A 


MAINDEC 
DRLPO.P11 


ul 

W 

W 

W 
SETEND: 


MAINDEC-11-DRLPD-A ——sMACY11_ 27654) 


DRLPO.P11 


a8 


Ww 
~ 


WWWWWW) 
Pin Set 


hot PERESERSEE AAA Us6 SOC ae eEE Sg BERET S 
py 


ERROR POINTER TABLE 


170460 


170461 


02 


14-DEC-77 20:22 PAGE 9 


. SBTTL 


ERROR POINTER TABLE 


#THIS TABLE CONTAINS THE NED BY UStt FOR EACH ger: THAT CAN a 


TEe: 


NBEXT: 


CSR: 
CSB: 


estar: : 


reef Siteng. fH! Toate hele Dicares mend TrEM TN 


RTINENT 


EACH ITE ‘CONTAINS 4 


NUMBER _F 


iN THE TABLE IS PERTINENT. 


IS (SERR C) 


INTERS EXPLAINED AS FOLLOWS: 


M POIN Le TO T RROR AGE 
BH SE BOINT S TO "T Bare HEADER 
OT POINTS TO T 
DF ;;POINTS TO THE BATA FORMAT 


REGISTE 
; SERRPC 


Oe SPADA EXPE 
: BUFADR SGDDA 


17402 (R18 B GoNvERTED VALUE <REAO? 


170404 pe STATUS REGISTER 
170406 ?CLOCK PRESET BUFFER 

170410 

170412 

170414 

170416 

“WORD 3 

ADDRESS OF KMC-11 OF LPA-11 

3 Losi ng 
; 2 ROSRESSES Ui Witt 
; CHANGED BY 

; 

.WORD 170460 ;BASE KMC ADDR. MAY BE PATCHED BY USER. 
-WORD 17046041 ;>DO NOT <;KMC-CSR 


aa Scale 
T S$B8DDAT 


rect 


ADOR 


SE@ 0023 





KOe 


NDE MACY11 27(654) 14-DEC-77 20:22 PAGE 10 
PO. ERROR POINTER TABLE SEQ 0024 
3 170462 Knage: WORD 170460+2 ; PATCH ; 
170463 KMADS: WORD 17046042 ;> THIS AREA < 
170464 KRADS: WORD 170460+4 ; 
17046S KRADS: WORD 170460+5 ;>D0 NOT < 
331 170466 wet WORD 17046046 ; PATCH < 
170467 KMAD?: .WORD 170460+7 ;> THIS AREA < 
000340 VECTOR: .WORD AVECT18777 ;BASE_VECTOR OF KMC 
000344 VECTPS: :WORD 44AVECT18777 :VECOTR ADOR. +2 
338 ooo004 VERSN: .WORD 4 ;CURRENT VERSION NUMBER OF MICROCODE. 
400 DVLS WORD O :/DEVICE LIST OF 1/0 ADDR. DEFINED 
401 Raed BLKW 16. BY ttf rt 
4 012706 001100 BEGIN: MOV aSTACK, SP 
abe :THIS SECTION OF CODE HANDLES INITIALIZING LPA-11 FUNCTIONS 
’ 
408 0046 MOV RO, -(SP) 
10 1364 HOV ERAGO, RD, 50° RO T KMG-11 ADDRESS 
i3 1 $6 13ee MOV ak i*R : OF ADDR. LIST. 
1 64S: INC sever 
ig 001404 CoP “FS. “fps, s? 
1g BNE bus s Dowe 65" NES ABR 
1 001412 L Bis :CLR ADOR. LIST. 
18 MOV + + Bh 
MOV ae 
013130 cLR 





990001 013130 — re Srp 
eesiTL 





lhe 2 ESE RA og 
001100 6 MOV 33 FIRST LOCATION N70.8 BE CLEARED 
CLR + AR MEMORY LOCATION 
“ 5 At 001140 MP aSWR,R& ;; DONE? 


i 001100 MOV #5 +385 s90P Bae THE E Sack POINTER 
;sINITIALIZE A FEW fs 


} ? 1 000020 ov ‘ stStyecye. + OT VECTOR FOR SCOPE ROUTINE 
12737 600036 MOV r assent “ST Ma VECTOR FOR ERROR ROUTINE 
12737 MOV K sEMTVEC+ att VEL 


SESELESSSLSSLES SSCS S ESSE S ELSI 
Ke ee —parmtatm 


PREG Owe Vous wee 


02 


BRI NDES TP I-ORLPOTA rraLISe THe EOMMON Tabs Oe” -POr22 PAGE 11 See oozes | 
437 001610 O1 Y ASTRA {VECTOR FOR TRAP CALLS | 
4383 BOL pieces e8 paatse ney tai ter Rae ne R FAILURE VECTOR | 
u4i Bote 63> bolies oe x OS Frmes bys Eun tes nea Fe IER LEONE 

443 Bat 

444 O01 

Mg 001 

44 


0011 
Gira? Goiees Soii6 | RNS SPE ee orn 
5 i SIZE FOR A " wear Tce rie ie ah 
; ;EQUAL ee vt ; 
oo0004 MO Bec aRvec iigere 
5 7 177870 bo1iNg Nov et pH spLay bi Rey CSheAcTER 
7 17 1 33i CMP #-1, ite Fo Cree 
001012 BNE 66S Hk i, (Santa T Ses WOGCURRED 
65$ 


000403 BR 
Boggas 001740 64S: p y #6S$, (SP) : BAe UP FOR T RETURN 
;;POINT TO SOFTWARE SWR 


: MOV #SWREG SHR paar 
818233 B8ob04 or 66S: MOV wOTSPREG, DISP ;;RESTORE ERROR VECTOR 
CLR SPASS ; CLEAR s.¢ 
681585 o00200 001223 BIre SBE TSIZE, SEN | iy i Tea? UpeR st size UNDER APT 


wa Ra 


S888 S88888 ssEsss 
WEE Geseee Hoases PRBS 


ei Fh hh 


465 001224 001140 ne MOV #SSWREG, SWR :NO,USE APT SWITCH REGISTER 

0020 ’ YPE : TYPE IZ STR 
ee HRSG gHIE m=O . DPOF SHIN 
46, »:69$: .ASCIZ ¢15><12>eMD-11-DRLPD-Aa< 15>< 12> 
471 boe033 005037 177776 ek pe 
493 ; DETERMINE TYPE 
473 ; ie BA 
ioe : RO= fe 17 te 
478 PIRG=177778 
479 PS=17 
480 
481 Mov ue sare 

v ;LOAD Ri 
ues SEC ‘EOF Cc Bit 
48s TST geP Ra : TEST PIRQ 
4 
4 et #PS+1 
SBC 





CLR @8177700 


PE HAP coins fate HPN 


MOe 


MAINDEC-11-DRLPD-A MACY11 27(6S4) 14-DEC-77 20:22 PAGE le | 


DRLPD.P11 INITIALIZE THE COMMON TAGS SEQ 0026 
491 1 7 CLR as6 
492 Bost 10037 BToeSs MOV RO, CPTYPE 
133 nae 0106S2 at PTYPE 
q { 010640 010650 BoLaycro), CPTIME ;GET CP DELAY TIME 
436 002126 000137 002234 IMP NITL 
3 ;LOAD TRAP CATCHER 
peciae cierto nay ae 18 ff 
eps ue i 16201 S$: Rov Re thi) 3L 22. 
ee . 
cy Biel fod ales oe 
5051 TST (RE)+ *BUMP Re 
9021 3 001002 CMP Re, #1002 : TEST FOR LAST 
1 1 BNE S$ :BR UNTIL DONE 
509 


;LOAD DEVICE ADDRESSES LOCATIONS 


B1a720 Bolsse ios: hoy  Sense’cRor+ — }CoaB Base ADDRESS 
O1373 001360 CMP BEAFAK, RO i TEST FOR DONe 


Brbges 010654 MO ,ADCS1 j LOAD HIGH BYTE POINTER 
1342 MOV ) ,RO 3LOAD 2ND ADDRESS 


ooo002 Vv 8 “RA 3k 1 
12S: ; $k + ; T REAL DEVICE WORD 
Gee70l oo0020 CMP #20, Ri ;TEST FOR DONE 
boaso? pe bE ieRrT 


oa, B0S136 INTL: f8R FE ypOTRAP ;TEST IF START OR RESTART 
5 


23th ENESFEAKK 
= 


bas ae Bas a De ae 
NOW £WMe-O 
Rean 


SRS Seasons 
pees ae 
a 
: 


z MOV STMDAT, ADCS ;7 PUT DATA FROM STMDAT TO DEVICE REG ADCS 
STMDAT, CSR ;7 PUT DATA FROM STMDAT TO DEVICE REG CSR 


+4 INIT2 ; 
529 140g BE is BR ae 
EH Ra omen, me RE BR tow 
oa ea —— TYPE a NT_THE TEST * TTERS 
1355 002264 013054 INIT2: Ne SINITA, AVECTR ‘CRT uP ’tA’ vector abpRESS.” 
3 00473 002132 J PC, LOTRAP ;LOAD TRAP CATCHER AND ADDRESSES 
bizes ENTRLC ;PRINT ’.’ TO INDICATE MONITOR READY 
3 012737 oO00000 013246 MOV #0, STMDAT 
a 
4 


ww 
5) 
3 
< 


| 
[a 


i ce a a 


0e 


MAINDEC-11-DRLPD-A MACY11 27(654)_ 14-DEC-77 20:22 PAGE 13 
ORLPD.P11 INITIALIZE THE COMMON TAGS 


* MOV STMDAT,@VCSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
* MOV STMDAT,@ADDBR ;7 PUT DATA FROM STMDAT TO DEVICE REG ADDBR 
* MOV STMDAT , aCSB ;7 PUT DATA FROM STMDAT TO DEVICE REG CSB 
* 
* 
# 


Oww 


MOV STMDAT,@IVCXREG ;/7 PUT DATA FROM STMDAT TO DEVICE REG VCXREG 
MOV STMDAT,@JVCYREG ;7 PUT DATA FROM STMDAT TO DEVICE REG VCYREG 
MOV Peta T DATA_FROM STMDAT TO DEVICE REG CSC 


WU 


UIUIUT UU 


OMNI 


WNUNUUTUT 





7 JSR C,XTT WAIT FOR TTY ENTRY 
2737 reptay 010250 ChPS fe FOR AQ’ 
rg IMP ie ' T ICK REGISTER TEST 
560 reared 010250 1S: CMPB WB. ENBUF ee Fun 94} 
See O1 ggesee kita VISUAL Me ¢ Bun "SCOPE ADJUSTMENT TESt’ 
3 103 010250 2s: CMPB Ss 8°C, INBUF iT T FOR "Cc? 
eee 1 722 BRT >YES, RUN ’A TO D CALIBRATION’ TEST 
104 010250 38: cNPB 8.0, INBUF iT ae "D’ 
O} 906002 J RepTST ¥ ’A TO D REPEATABILITY’ TEST 
: 7 1 010250 4S: cNPS acE, INBUF iT St, FOR ’E’ 
7 1 o06S62 TMP RECVRY YES RUN ’°A TO D RECOVERY TEST 
7 1 SS: Hype: ENTRY 
7 ize K 
BR INIT2 ;WAIT AGAIN 


012737 002534 013054 VISUAL: MOV #VISAUL,AVECTR 


Ane B MES ;HEADER ABOUT SCOPE ADJ. 


VISAUI1: TYP 
MES1S ; TEXT ABOUT SWR 


UIUIUIUTUTUTUT 
Walz 
2 


at VSUALO: 
583 ppvengeqecaaaanegesce iio iia eee 
G4 ;&TE DISPLAY HORIZONTAL LINE 
Bae 2 aay. epee PP = 
587 002544 9001 001166 “MOV ST “ie ;;00 1 ITERATION 
1 j 4 PICO: mov Vek “BLY 
7 1354 E v 
gb 27 1311 MOV Ht e CkS ;LOAD TIMER FOR CP TYPE 
737 TSR PC, CHT IME :CHANGE TIMER FOR CP TYPE 
5 eeg ai R Pe’ TERER :DONE ? 
io 773 aR’ tt : 


sat eeu: on wy) te Smmeacatatalaaammaiaaa aaa 


Y A VERTICAL 
EES SHERMAEEESHESTENESESE SEES SARA SSAEEESKEREAHMEMREREMEERERES 


Mun 
BNeR Low 


nef ll i 


TOSSES ° 


OOOO OOOCOrro 
Oe ow Weel £urueO 
WONMU CWO 


se 
R 


002762 


BOR Re 


003006 


Eg 


BeRee 


003032 
003036 
003040 


roo 
SER 


060237 


00S237 


DISPLAY A VERTIC 





013246 


001126 


013246 


O01311e 


013246 


013246 


013246 


14-D 
ALL 


TSTe: 
PICL: 


1$: 


PBB: 


03 


ce -77 20:22 PAGE 14 


SCOPE 


#0, STMDAT 
Sruee t aaa 


ie 

, STMDAT 
ort 
STMDAT, ORLY 
ani $T 


2,StMoA 
STMDAT, DR1Y 


QYCSTAT, SBDDAT 


SBDDAT , AVCSTAT 


sredaf TES 
PC 


;;DO0 1 ITERATION 
;LOAD TIME 
!CHANGE TIMER FOR CP TYPE 
;DONE ? 


;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
;SET_HIGH LIMIT 

;INITIALIZE INCREMENTS BETWEEN POINTS 

;7 PUT DATA FROM STMDAT TO DEVICE REG R1Y 

;7 PUT DATA FROM STMDAT TO DEVICE REG R1Y 
;7READ DEVICE REG R1Y,PUT DATA IN STMDAT. 


;7 PUT DATA FROM STMDAT TO DEVICE REG R1Y 
;7READ DEVICE REG VCSTAT,PUT DATA IN SBDDAT. 


;7 PUT DATA FROM SBDDAT TO DEVICE REG VCSTAT 
;7READ DEVICE REG R1Y,PUT DATA IN STMdAT. 
;NO 
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DRLPD.P11 Te DISPLAY A VERTICAL LINE SEQ 0029 
£38 003042 oo0000 ROX: .WORD O 
640 003044 000000 RLY: -WORD O 
up o REREREKKEERKRERERREREARRASRRAASHRERARARRAKRERRAERAAAARREREREKRKERE 
643 jATEST 3 PINCUSHION TEST (DISPLAY SQUARE) 
644 en ee er ee 
64S 003046 o00004 +6 


gis BESEEE GIE7%? nooo: 001166 or g BBne eABASTBIER very 15'DOuda AFGHT™RS 


648 :UPPER RIGHT TO UPPER LEFT TO LOWER 
64 Ss DISPLAY 
p90 0030S6 005037 013102 brc3 CLR 
6 + % Vv L CSTAT -/ PUT DATA FROM LOW TO dEVICE REG VCSTAT 
£25 903078 012737 o1i3112 ’ V ri tee : 
654 1 7 662 JSR PC’ CHTIME 
B55 Bsit3 13708 1356 nov VEKREG BL 
pes 114 13 1 MOV Vest AY? RS 
658 003120 012704 MOV #4, RY 
659 003124 013737 013102 013246 p3: MOV LOW, STMDAT 
pe? 5% MOV STMDAT,@VCXREG ;7 PUT DATA FROM STMDAT TO DEVICE REG VCXREG 
ee5 3% Moy wi TMDAT,@VCYREG ;/ PUT DATA FROM STMDAT TO DEVICE REG VCYREG 
664 :DRAW BOTTOM LI 
665 003152 012700 000377 MOV #377,RO 
B66 003156 012737 O00004 013246 MOV #4, STMOAT sENABLE INTENSIFY ON LOADNG Xx 

.% MOV TMDAT,@VCSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
6 003174 P3A: . setae ™ 
671 3% MOV QVCXREG, STMDAT ;/READ DEVICE REG VCXREG,PUT DATA IN STMDAT. 
b7e 003204 060437 013246 ADD R4, STMDAT , > 
a 5% MOV STMDAT,@VCXREG ;/ PUT DATA FROM STMDAT TO DEVICE REG VCXREG 
B75 + ‘WATT FOR READY 
6 Bo aeBe rer Bre Ba ;NO 
678 ;DRAW RIGHT LINE 
679 003224 012737 O00010 013246 MOV #10, STMOAT ;ENABLE INTENSIFY ON LOADING Y 


. Vv STMOAT,JVCSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
paseNe 012700 000377 nt NOV ae) , 


CYREG,$STMDAT ;/READ DEVICE REG VCYREG,PUT DATA IN STMDAT. 
003256 060437 013246 RAS TROAT ’ ’ 


MOV STMDAT,AVCYREG ;7 PUT DATA FROM STMDAT TO DEVICE REG VCYREG 


SERRReeRee 
= 


3 
003272 \s: 


ono 
8 


@VCSTAT,SBDDAT ;/READ DEVICE REG VCSTAT,PUT DATA IN SBDDAT. 


oO 
— 
* 
3 
< 


a 9 late” 


DRLPO. P11 
188571 


005300 
001355 
012737 


012700 


160437 


B07 358 


012737 


ee ee 


WO NOU£ Wwroe 
VO 


So 
: 


012700 


160437 


thurs 
8 
2 
R 


NNNNNNNNNN NNN NNN 
N 


- 
ui Bie7a? 
74e 003512 737 


MACY11 27(6S4) 
PINCUSHION TEST 


001126 


oocco4 013246 


000377 


013246 


001126 


013246 


001126 


03 


14-DEC-77 20:22 PAGE 16 
(DISPLAY SQUARE ) 
| oranda 


TSTB 
L 
DEC RO 
ot P38 
LINE 
MOV 


;DRAW T 
#4, STMDAT 


% Vv STMDAT, AVCSTAT 
NOY BaP TRO 
P3Cc: 
x 
* BOS ANCHFRBATTORT 
iz MOV STMDAT , IVCXREG 
5% MOV gvcsTar, SBDDAT 
TSTB ODAT 
BPL 
BRE BSc 
;DRAW LEFT LINE 
MOV #10, STMDAT 
;# MOV STMDAT, AVCSTAT 
Nov RSP PTR 
P3D: 
+ MO VCY TMDAT 
: oo8 Ry SRASAT 
H MOV STMDAT, IVCYREG 
;# v TAT, SBDDAT 
TSTB ae5Bat . 
BPL 1s 
, TIMER 


;WAIT FOR READY 

;NO 

;ENABLE INTENSIFY ON LOADING X 

7 PUT DATA FROM STMDAT TO DEVICE 
;7READ DEVICE REG VCXREG,PUT DATA 
;7 PUT DATA FROM STMDAT TO DEVICE 
;7READ DEVICE REG VCSTAT,PUT DATA 


;WAIT FOR READY 
;NO 

;ENABLE INTENSIFY LOADING 
;7 PUT DATA FROM STMDAT TO DEVICE 
;/READ DEVICE REG VCYREG,PUT DATA 
;7 PUT DATA FROM STMDAT TO DEVICE 
;“7READ DEVICE REG VCSTAT,PUT DATA 


;WAIT FOR READY 


. 
, 


s REGGE RRR GEER ERE REARS RR RARER RELA RE EE 


i kTE 
$éTu: 
PIC4: 


#1,STIMES 


Se 


MOV 
V 


Pp 
; HSHeaeeyeunaeniaunnaeenaeuaensnennaeenaneneenaeenanennennaness 
;;00 1 ITERATION 


REG VCSTAT 


IN STMDAT. 


REG VCXREG 


IN SBDDAT. 


Y 


REG VCSTAT 


IN STMDAT. 


REG VCYREG 


IN SBDDAT. 


MAINDEC-11-DRLPD-A 
DRLPO.P11 


dossse 


T4 


2737 

737 

13701 
1 


012737 


012700 
060437 


060437 


00S300 
001382 


012700 


160437 


060437 


001 
0047 
000666 


MACY11 27(6S4) 
PLOT AN X 





oooco4 


000377 


013246 


013246 


000377 


013246 


013246 


o004sSs0 


013112 


013246 


E03 
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MOV 
JSR 
PIC4YB: MOV 
MOV 
MOV 
MOV 
PY: 
;# MOV 
;* MOV 


seeks QVCSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
Be’ CH TRE ;CHANGE TIMER FOR CP TYPE 


VCSTAT,R3 
#4,R4 


LOW, AVCYREG 
LOW, IVCXREG 


;7 PUT DATA FROM LOW TO DEVICE REG VCYREG 
;7 PUT DATA FROM LOW TO DEVICE REG VCXREG 


;PLOT Le BEN Gr IN AR Loan LEFT CORNER 


;ENABLE INTENSIFY ON LOADING X 
ae @VCSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 


avCYREG $TMDAT ;/READ DEVICE REG VCYREG,PUT DATA IN STMDAT. 
, STMOA 


STMDAT,@VCYREG ;7 PUT DATA FROM STMDAT TO DEVICE REG VCYREG 
G haa ;7READ DEViCE REG VCXREG,PUT DATA IN STMdAT. 
3#4 TO X 


) aaa iatteatataata ;7 PUT DATA FROM STMDAT TO DEVICE REG VCXREG 


BNE P4A ,NO 
;PLOT LINE BEGINNING IN UPPER LEFT CORNER 


3% MOV 
MOV 
PHA: 
3% MOV 
ADD 
; MOV 
; MOV 
ADD 
;# MOV 
DEC 
;* MOV 
;* MOV 
MOV 
P4B: 
3% MOV 
SuB 
5 MOV 
3 MOV 
ADD 
ae 
JSR 
BR 


;7 PUT DATA FROM HIGH TO dEVICE REG VCYREG 
;7 PUT DATA FROM LOW TO DEVICE REG VCXREG 


HIGH, aVCYREG 

LOW, IVCXREG 

4999 RO 

avCYREG STMOAT ;/READ DEVICE REG VCYREG,PUT DATA IN STMDAT. 
, STMDA 


STMDAT,IVCYREG ;7 PUT DATA FROM STMDAT TO DEVICE REG VCYREG 

RN Sth Fl aai ;7READ DEVICE REG VCXREG,PUT DATA IN STMDAT. 
;+4 TO X 

BOat ,. ORES ;7 PUT DATA FROM STMDAT TO DEVICE REG VCXREG 


P4B ;NO 
PC, TIMER 
PY 


-SBTTL END OF PASS ROUTINE 


| 

| 

| 
| 
| 


VO 


SUEUR TORS oR 


= b= be be Be Pew Pe Pee 


NOW LWT 


Fun Cou RE SOS c Rye 


@ 
<= 
w 


DasEs 


FO3 
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TINE SE@ 0032 


RINGRERENT THe Pass NUMBER (PAGS) OOO Se 


S NUMBER 
PASS THE PROGRAM 
eee, BASS aKnoXK eae XXXXX Fe a's A DECI NUMBER ) 
F THERE ISN’T JUMP TO 
exer: 


sc 
cL STSTNM +: ZERO THE TEST NUMBER 
LR HE NUMBER OF ITERATIONS 
ec He NCE MENT HE PASS NUM 
001210 Te ,SPASS ;; A NEG. NUMBER 
+ POOP? 
SEOPCT: aaa 
Boy (PC)+, SD0RGN | RESTORE COUNTER 
SENDCT: s 1 
oP sPRSS)=<SP) aaa Cc I WITH SIGN 
a T P SENULL i Tyee a Tha “fe ey 
i + BE NeR TE ONO MONTTOR 
is senoao: SER PC, (ROD ig a TH Bat 
t NOE {Save 
x NOP ;;FOR 
i NOP :;ACTIL 
I SDOAGN: 
i IMP a(PC)+ ; ; RETURN 
SRTNAD: .WORD VSUALO 
SENULL: "BYTE -1,-1,0 sNULL CHARACTER STRING 
NOMG: LASCIZ <1$><12>/END pass’ s 





gow1 44 CLRVC: ;ERASE THE SCREEN 
144 012737 O02000 013246 MOV #B1IT10, STMDAT 
; MOV STMDAT,@VCSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
3% MOV QVCSTAT,STMDAT ;/READ DEVICE REG VCSTAT,PUT DATA IN STMDAT. 
004172 052737 010000 001350 BIS eBITi2, YCSTAT 
rT MOV STMDAT,@VCSTAT ;/7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
pove1g 000240 NOP . 
00421 12700 o00020 MOV #20, RO ;SET UP DELAY 
Ooe16 Basons CLR RI 
F) CLRVCA: ; TEST FOR READY 


22 
Bo 


004230 


Ree Lad cy 


@oOow 

NNN 

wre 
2 


RRC NOES PRIOR EB oe ae Bsa oS 


gy tt -onro 
ll END OF PAS 


10S737 


012737 


000413 


162737 


00S237 


000240 


100371 


013246 


174666 


1746Se 


001777 


ooo004 


013246 


001126 


Ass Rout 


ae? 


010000 


013246 


013132 


013246 


013246 


013246 


GO3 
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1S: 


CLRVCB: 


LOADVC: 


MOV 
TSTB 


;7READ DEVICE REG VCSTAT,PUT DATA IN STMDAT. 


QVCSTAT, STMDAT 
STMDAT 
5s BRANCH IF SET 
; DELAY 


LRVCB 


CLRVCA 
er evce ; DELAY 
Sein, asui2 ;TESt INHIBIT PRINTOUT 
JSWR ; TEST JSWR 
CLRVCB 
;ERASE RETURN FAILED TO SET READY 
PC 
;CLEAR STATUS 
#0, STMOAT 


sive, teel ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
VERE EE a 
STMDAT , AVCSTAT 


TEMP 1, AVCYREG 
#1777, STMOAT 


STMDAT , AVCYREG 
Loovcc 


;SET STORE MODE 
;7 PUT DATA FROM STMdAT TO DEVICE REG VCSTAT 
;7 PUT DATA FROM TEMP1 TO DEVICE REG VCYREG 


;7 PUT DATA FROM STMDAT TO DEVICE REG VCYREG 


SvCYRES, STHOAT ;7READ DEVICE REG VCYREG,PUT DATA IN STMDAT. 
#4, ST 


STMDAT,@3VCYREG ;/ PUT DATA FROM STMDAT TO DEVICE REG VCYREG 
PCS To* , Sreoar ;7READ DEVICE REG VCSTAT,PUT DATA IN STMDAT. 


STMDAT,SVCSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 


SYSS TST, SBCOAT ;“7READ DEVICE REG VCSTAT,PUT DATA IN S$B8DDAT. 


@VCYREG,STMDAT ;/READ DEVICE REG VCYREG,PUT DATA IN STMDAT. 


SEQ 0033 


MAINDEC-11-DRLPO-A 


DRLPO.P11 
see pas 
3 BES 
ais 
a5 cows 
3914 
315 
at BBdedé 
918 


wo 


aA a ae EERE RP RES y Tae nh ny sak 


Pe) 


ath 4 
ToNaa? 


162737 





042737 


MACY11 27(654) 
END OF PASS ROUTINE 


000003 


000001 


013112 


We 
B13i40 


013112 


013246 


013246 


013110 
013110 


013110 


oii 


013140 


03 


14-DEC-77 20:22 PAGE 20 


re tee 
CKSWR 
;# MOV VCYREG, STMDAT 
SUB oy oS Thoat 
;% MOV STMDAT, AVCYREG 
BNE QOvCA 
; TIMER ROUTINE 
: ENTER VIA JSR PC, TIMER 
TIMER: CKSWR 
MOV TIMSV 
TELS 
TIMERA: s SV 


t 
DEC TICKS 
TIMERI: Bp , mies 
Bo a 


TIMER2: BIC #177770, TIMSV 
TIMSV 


UTPT, TIMSV 
MOV ouinev,t tIMSV 
CMP 
NOP 
NOP 
TIMER4: JMP aTIMSV 
ROUTPT: PICO 
Pics 
P ki 
CHTIME: MOV PTYPE, BRLEVI 
CHTMA: Cc Biel 
BEQ H 
BR tie 
CHTMB: RTS 


; TEST FOR “CTRL G” 
;/READ DEVICE REG VCYREG,PUT DATA IN STMOAT. 


;7 PUT DATA FROM STMDAT TO DEVICE REG VCYREG 


;BIT 8 SET 
;NO, DECrEMENT TICKS 


sA00 8.,"° STACK POINTER 


;OISPLAY A HORIZONTAL LINE 
;DISPLAY A VERTICAL LINE 
BISA 8 BS 

: YA *xX 


[secenguatnsunnylopeseerennpenssseenenenEnaNeneenNnueneenenenaS 


ATES CALIBRATION ROUTINE 
OPES SESEEASEEAES SESS SEES ESOS ESSE SEARS AEOERAERECEOEERERREEEREEREE 


SEQ 0034 


a ae a 11 tai png t PR 4 (6S4) 


ve 


971 


SSEGER TREE SEASON Ooe CeR ER Eda iad Sanco eee 


te ee he ee 


aera 
WlWwre 


Oo0000 


CALI 


012737 000001 001166 


004734 013054 


ee ce Se Se SE 2G 
a SD oe oa oat ot Sa 


+ 


013246 





005126 012737 013246 


B08i70 13704 Golas2 


ION ROUT 


I03 


— 20:22 PAGE 21 
NE SEQ 0035 


TSTS: SCOPE 
TIMES 1_ ITERATION 
jeesauencscouanancheseet ceusussabiesasensesnseeceeueneuenensaeaaeenenene 


He bron aft CLOCK) THE TYPE OF ’SYNC’ TO BE USED (’I’ INTERNAL OR ’E”’ EXTERNAL 


ean ol foc batn? Sue Eoce TO SELECT UNIBOLARBIPOLAR 


CALBRT: poy SCALBT1,AVECTR ;SET UP ’tA’ RESTART ADDRESS 


NES? ;TYPE TESt HEADER 
CALBT1: T 
10 ;TEXT *SYNC I OR E OR C’ 

J PC, XTTYIN ;WAIT FOR INPUT. 

MOV, INBUF , PROC ;SAVE IT IN TEMp’ STORAGE 

oR USECLK ARC F 
a ore HOV ¥ T “ ia UF Up FOR *i" bag CONVERSION 

: Big a 7 ; GHWANTEO Bits. Ay WORD COMPLETE 

MOV K Ten GINAL SWITCH SETTING. 

CMP 88, PROC. Rect svhe SELect 

GS Heygqwo: ERE 85 “Ex sme err ro 
1S: CMPB a3, . oo oo 

NG #40, 1 + OC RWISE AOD & cK” SYNC TO A/D 

MOV a-1 CLK 

BTSs ST ADWROL 
CALB2A: 

Vv SADBUFF , RS ;RESET POINTER 

11S: NOP 

NOP 

Nov ADWRD2, STMDAT ;LOAD A/D STATUS 
;# Hoy STMDAT, BADCS ;/ PUT DATA FROM STMDAT TO DEVICE REG ADCS 

;CLEAR STAT 

MOV #0, STMDAT 
5 MOV STMDAT,@VCSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
5% MOV STMDAT,@VCXREG ;/ PUT DATA FROM STMDAT TO DEVICE REG VCXREG 
* MOV $T T,BYCYREG ; 37 PuT oT Bab FROM gress TO DEVICE REG VCYREG 
BY WEsAEes I 


MAI 


: 


De 0 a ee Pb 
vate : tT 


C-11-DRLPD-A 
PD Bi 1 TS 


005174 012737 


o00S212 








7(6S4) 


JO3 


— 20:22 PAGE 22 


CAL TBRA ION ROUTINE 


000010 013246 


00S472 


008470 


173sie 


MOV #10, STMDAT 
ig MOV STMDAT , AVCSTAT 
;# MOV gycsror AXIS1 

MOV 3, AXI 

MOV RY, AXI 

MOV HT 
10S: MOV | 

MOV #0,R 

CLR 

JSR PC, CNVTSV 

MOV . 

MOV #1 Bh 

I E 

J PC, CNVTSV 


:CONVERT INTO 01G 1s. 
iss: no 


a 
3 
wv 
oO 
oO 
OOM 
= 
Fatt 


REPSSBRE SELLE ARIS U2. 
a528 
= 


17$: 
16S: #17770,R1 
(R1),-(R2) 
1 
AQ]SPLA vs RTED Ten Ts 


women 
aE, 
: Re 


an 


2 . 


; INTEN. ON Y LOAD 


;7 PUT “LS Bay oh ae TO DEVICE REG VCSTAT 


; 7READ oeyte Ra. VCSTAT,PUT DATA IN AXIS1. 


fe § ON COUNT 
a hee” 
LORD MARKER COUNT 
Sparen, Sake 

‘BR ie NOT 

1888 CONVERSION COUNT 


GET A VALUE 


4 OR TYPEOUT 
A BOINTER 


— RIGHT 


; OT VALUE 


epecperss 


;SETUP TO PRINT ‘1’ VALUE 


SEQ 0036 


nth ll Stead 


VeRZan—-s3 





SELPRLOR BEE CORE 
F fi 
3 


00SS74 153737 
oos6& 


105037 


BOIFR EGS 


ly nd et eet nt etd 


WR OWONTU CWO 


S iS 


010225 


ee be ee ee ee ee ee ee ee ee ee ee ee ee 2 


ee ee ee ee ee ee ee ee 


008754 


013246 


013246 


013246 





013246 


KO3 


4) ——* 20:22 PAGE 23 
ROUTINE 


: PC, TSTFLG EST FOR KEYBOARD INTERRUPT 
ais: HB FENDA rear ar! STORE SPOR Bad Coanees 
BEQ 23s ; BRANCH ofl B TPKE, REX xf BURST oF Si2 CONVERSIONS 
ezs, ie SACEER 
100$: 0 
1018: O 
Tl: 
12: | 
T3: 
T4: 
ANO: NO 
CNVTSV: TST MARKER ; TEST IF MARKER SAMPLE 
fet Bec orPSey 
7 
: ‘CLOCK ENABLE 
aie ete Pha either 
MOV #-30, STMDAT ; 
; MOV STMDAT, ICSB 37 PUT DATA FROM STMOAT TO DEVICE REG CSB 
MOV #3, STMDAT ; 
. TMDAT, CSR :/ PUT DATA F ,STMOAT TO DEVICE REG CSR 
és: es _—-s ' ;ENABLE A/D 
5% HOV grocs STma ;/READ DEVICE REG ADCS,PUT DATA IN STMDAT. 
ite ae MOV STMDAT, BADCS ;7 PUT DATA FROM STMDAT TO DEVICE REG ADCS 
5% HOV BADCS, STHOAT ;/READ DEVICE REG ADCS,PUT DATA IN STMDAT. 
+ a TMDAT, BADCS :/ PuT are FROM STMDAT T VICE REG ADCS 
; _ re ? LOAD CONVERTED VALUE 
5% v i eel ; 7READ cnveet REG ADDBR,PUT DATA IN STMODAT. 
: ;ADD OFFSET IF ANY 
fet R “an 
R 
nov , STMDAT ;LOAD AN AXIS 
3% nov STMOAT , AVCYREG 37 PuT one tev Bue seen TO DEVICE REG VCYREG 
Ss: . 


SEQ 0037 


33 
36 


EFAS SS aaa asaacnatanatees ease aes 
VER ZONA SSS VERO GSB wre Oe Vo LU Owe Vee Oke Sb woe 


03 


C-11-DRLPD-A 1 27<6 654) 14-DEC-77 20:22 PAGE 24 
Pil TS CAL IBRATS ROUTI INE 
5% MOV QVCSTAT,STMDAT ;/READ DEVICE REG VCSTAT,PUT DATA IN STMDAT. 
005710 105737 013246 TSTB SIMOAT 
005714 1 1 L 
5% v QVCYREG, STMDAT ;/READ DEVICE REG VCYREG,PUT DATA IN STMDAT. 
005726 062737 o00002 013246 Dp SS STMBAT : ‘ 
+ MDAT,3VCYREG ;/ PUT DATA FR v vCY 
005744 005300 ; Bex AG — PUT DAT ANE Al: SCORVERS TORE Foe REG VCYREG 
005746 001261 BNE cNVTSY : NOT 
DOS RTS ;EXI 
DUS MAR 5 : O 
ue 101 ADWRO1: 101 
00s 000000 AXIS1: O 
axt : 8 
121 lun NOLO ayte 76,121,111, 105, 76 
767 1 076 ba e ’ , # a 
005772 . EVEN 
3 Tee Reet eEAIAOILITY Test 
of: I a T  , 
772 aie SCOPE 
774 Ole737 OO00001 001166 #1, STIMES ;;D0 1 ITERATION 


Tets ROUTINE TO DESIGNED TO ae NaNO THEN CATEG BY TAKING A SERIES OF 


picnse Bie ane ae 


he ee eee Gis 48 RPRIGRD, CLR rou 


006014 013054 rapTst: MOV @REPT1,AVECTR ;SET UP CNTR ’A’ VECTOR ADDRESS 
MES13 ; TEXT "REPEATABILITY TEST’ 


sere REPT1: cc + ll 





ik PC bo} N pa - SWArT FOR INPUT 
ieee 13064 is cbeln ; souvent Xo ° ocTaL 
13064 61 3bee Mov a Ke TORS ae i CH. ENTRY 

e 
010424 013064 one fase, KSTORI if Sir. 
010424 013066 onaiiiee HOV BeDTAB+2, KSTOR2 ;0T HERWISE SE SAVE AS ond CH. 


MAINDEC-11-DRLPD-A MACY11 27(654) 14-DEC-77 20:22 PAGE eS 
PO.Pil T6 REPEATABILITY TEST SE@ 0039 


DRLPD. 
1178 006102 012603 aia MES16 ;TEXT *COUNT SPREAD F oon one 
th mH ee yee eR = PE AEERHN specove tO dcTAL | 
Lies 13062 oe a Se SSET FOR. 'S12" CONVERSTONS Com? FLAG 
i 13980 K +1 jad SELECTED CH. TO HIGH BYTE OF ADWORD 
1 1 , 

He bey tg THE AWERGE OtSMPUTE DISTRIBUTION 
191 172732 #110, SHR ; TEST uf sH10 . 
133 172722 TSTCTY: r) , ISWR Test OR. RrfelY tyPeout 
1 013070 KSTOR3 ; WAS ay°Foe coal 
15 013244 Fedbt sno Ba Bah 5 WE THIN 4 COUNTS 
PT7 YES TEST NEXT CH. 
013070 TSTCT3: :COUNT = TO 


013242 ;NO TEST COUNT 2 





;BRANCH_ IF COUNT NOT WITHIN 3 
;YES, TEST NEXT CH. 


ferefio SOUT eST COUNT 1 


el » XSPRD2 
Beer {BRANCH IF NOT METHIN 2 
Be pkg TORS i OUAT 5 a0 EVEN IF NOT ’0” 


ooooc2 013070 TSTCTe: 
001000 013240 


000001 013070 TSTCTI1: 


Seahaage eat wens SRaae ROAR eT Se 


ee ee 


CERO YUN Se Von cun- See wen ORS ES 





001000 013236 #1 XSPRD1 
Repay" ;BRANCH IF TOTAL WITHIN 1 COUNT 
REPT4: 
013146 MESPRT ; TEST IF HEADER HAS BEEN TYPED 
TS :BRANCH IF YE 
saoen ;TEXT °CH. LOW AVG. HIGH’ 
" * ACRLF ee - ; CARRIAGE RETURN, LINE FEED 
197900 boeeee Bet =| NS 79S0a"Reprea *OY: SM 
O06SSE REPTB: HOV REPTBA, -(SP) 
1 TENE 1 
0074 38R Ba XSPACE 
013154 Mov ADLOW, -( SP) ;SAVE LOW VALUE 
001 ‘B * ve 4,1 


18426 813858 repren: Mov PeGUee Kerona tSRVE Startine cH. 


2B 


NO3 










































-11-DRLPD- Y 7( 4Y-DEC-77 20:22 PAGE 26 
tp eit! Pose Repeat ILITY Y Test SEQ 0040 
7474 JSR PC, XSPACE 
1833 ppeutS Orarae pes is0 MOV AVRAGE , - (SP) ;SAVE AVERAGE 
i BEM ‘ 1 TaVe 4,1 
en: . 
1 D064 oo? 7 go7474 JSR PC, XSPACE 
1 D064 13152 MOV ADHISH, -(SP) 
1533 Goeuse | 001 VTE 41 
i DOE Pa 013146 MESPRT 
enc pL 
DOE : 000007 013146 REPT6 Py PRT Hey Sa R HEADERS sets 
DOE : 
10E 000 AVGCNT ST COUNTS WERE AT AVG. 
i e 0E z _ O13e20 —— BEQ REPT Feros BRANCH TO NEXT CH. IF YES. 
} ' > 40 
7 = 
1 0064 
10E T6A: MOV }+.R 
i oe 7 10656 — J PC DECPAT Test Fon port ;TYPE OUT COUNT SPREAD 
i ata 376 — axsrRe . !BRANCH IF NO AND TYPE NEXT COUNT 
i 4 OO 172420 WR 
Ce 
ieee DDE 1 013072 REPT? KSTORY Aptinncotit pce  stton 
ee ° 
1258 t4 777 . Ni? 7700 RY 
1259 B25? 13086 KSTORe, RY ; TESTED ALL CH.(S)? 


| 
-BYT 
REPT6 
YPE 
MES2O 
BIS 
MP 
NOP 
1 ACRLF 
1 013204 ota #ORLOW, R4 
SR 
MP 
S 
BPL 
HALT 
MOV 
BIC 
CMP 


zs 
z 


qEKee 


a 
“1 


eee 


: 


REREREAAREY 


 apl-agel al ad aap aap cap aed aed eed ood ed ee 


SeRsoRes 


Slaladadeded eet 


ce at 


Ob 2 be bb ps Pe be pe hp ph 
WWW 
en ee el oe 


wrre-O 








O4 


11-DRLPD-A Yl 7( G4) 4-DEC-77 20:22 PAGE 27 
i Té REPEATABILITY TEST 
49 4 Q REPT7A 
4 : z 913078 NC KSTORY ; TEST NEXT CHANNEL 
ees 000137 006122 REPT7A: JMP REPT2A ‘ 
O0&6SS6 oD0000 REPi3A: O 
a” 6 Eee ee 
006560 o4 ; .  Saltanet °°” -ieaaatatapatataaeata teats cacasta cia tain, 
" I 


H $ rest Ts DESIGNED TO JEST INTER-CHANNEL SETTLING OF THE A/D CONVERTER BY 
i OERTES OF EIGHT ¢ CHE ON EACH CHANNEL “AND TYPING GOT THE CON 
: JERSTON. VALUES OF THE SHO CHANNEL TN The ROL N THey eR ants CON 


PAE? 7 006574 013054 RECVRY: a SRECVY1,AVECTR ;SET UP THE ’tA’ RETURN ADDRESS 





401 
ve ME ;TEXt RECOVERY TESt’ 

104401 RECVY1: Tyee +REQUEST CHANNELS 

a 

ue JSR »XTTYIN ;WAIT FOR INPUT 
0047. JSR BC IN :CONVERT’ TO OCTAL 

0137 013064 MOV KSTORI _;SAVE 1ST CH. 

: 013066 MOV Tate KSTOR2 ;SAVE 2ND CH. 

0047, RECVYe: JSR TSTFLG ;CHECK FOR KEYBOARD FLAG 
01275 007144 a eib.,1 ;LOAD COUNT 

t ' 

012% 1 Vv #10, TEMP ;SET TO PRINT EIGHT 

Bt SS3 130b8 MOV a : ah Setup 19 TAKE ’°8’ CONVERSIONS 
A 138) 1S: nove sings? aDRoS 3L 1ST CH. 

J> 1 I  ] 

DOS fl LAY ;NO DELAY BETWEEN MUX CHANGE AND CONVERT 
00 + ; TAKE HE RSIONS 

ha3o3 613080 move =— KS TORS AQUADEs1 SET UP END CH. 

oss 13 Bis pet NO AY BETWEEN MUX CHANGE AND CONVERT 
D0 be ROCNVT ee SND SERIES OF CONVERSIONS 
137¢ MOV 1 zL A INTER 

012700 MOV RO 7 POINTER 

512061 MOV . (R1) 

51 s06 1 MOV TB1(R1) 

01206 MOV TBe(R1) 

512061 MOV TB3(R1) 

D1 a3 MOV TBY(R1) 

ies ny reste} 

BL SDet MOV TB7(R1) 

D627 007146 D0 ;UPDATE POINTER 

001314 BRE 





ees. - SS ssssssesesssseseseesesennsneesnnene = 





CO4 
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DRLPD.P11 17 RECOVERY TEST SEQ o042 
1314 7026 012700 000010 MOV #8. RO ;LOAD COUNT 
Iie Bert Seas nov wAOBUF F,R2 it AD COUNTER 
131 i 4 Siisss oS HOV #15, PEN. 1 OO AYRG. COUNT 
1318 £7 Bg90e3 cAbt CRI), RY ; BOAT 
1320 ? 011074 JSR TEA’ ; 
138 2 013170 AVARGE, (R2)+ ; SAVE 
13ee c07e 721 TST c ; UPDATE VEOTN ER 
i Bg es BNE £9 ;8R IF NOT DONE 
1 
1 BF 932777 002000 172032 BIT PSWLO, SUR ;TEST BIT 10 
1 il Tosa0 : TYPE 
1 ll2 Ol ness ; TEXT ’CH.’ 
1 114 013066 Vv KSTOR2, -(SP) 
1 71 TYPOS 
1 1 001 BYT 
1334 0071 12737 oo0002 007524 , 
1335 1 go7a74 BA PC, XSPACE 
1 1 7 7526 R *XPRTAV -PRINT VALUES OF 2ND CH. 
Re pea RECVY2 ;D0 IT AGAIN 
1 46 178: 
iaan 0071S0 oo0000 12e$: 0 
& 4 LADTB i 
? 
it Bir f 
1 1 742 ADT 
1347 007164 Ge 1004 ADTBS 
1338 Bost 510? AT 
i tiTESt 10, LOAD DIFFERENT NUMBERS INTO DIFFERENT REG, 
1380 007172 jgsredetzonegonedecsesbentenesonsesseseteantersnotedosenssennanans 
1354 007174 0127 000040 001166 Rov . #40 STIMES ;;00 40 ITERATIONS 
13. 18% ? 007210 013054 RESTST: HOV #20$, AVECTR 
138 13 or1e74 007450 nese 718 saeco hosel cnet 
1 ;RESET 
1360 000100 007446 118: MOV #100, 70S ;LOAD COUNTER 
Ls 071 2s: Nov Pot ;LOAD STARTING ADDRESS 
1364 re v pyeen. Ri ;LOAD STARTING TABLE ADDRESS 
tee BBesd BLBCUS ss BBY pe eee 
1367 007254 162737 O00002 013246 SUB a5. sFfoar 


DO4Y 


MAINDEC=11-DRLPO=A MACY11 27(654) 14-DEC-77 20:22 PAGE 29 
DRLPD.P11 T10 LOAD DIFFERENT NUMBERS INTO DIFFERENT REG. SEQ 0043 
7 #2,R 
ie BBSSEE hyty BS BBr7es Ree *afD. scopat 
;% MOV SGDDAT,9STMOAT ;/7 PUT DATA FROM SGODAT TO DEVICE REG STMDAT 


Borscd Bolset Bae ts«*SS BR Te hor 
807378 B12782 BB }i=8 ¥ SBGRaGR, ea ESRB Start ie ESHNTER <expecten» 


| 
MOV #8.,Re 
GGraBE BLAME? BPS. ORBY BLUNT = 


2 Pe Pao be De fe ban ae bas Pe pe Pe ps fae Pe 


5% MOV TMDAT,SBDDAT ;/READ DEV G STMDAT,PUT DATA IN SBDDAT. 
023737 001124 001126 CMP GDDAT , $BDDAT Case ane 
chiar ¢ RD pamiaedl CSAs 
-—s ERROR 1 os T BUS eons CHANGED IN ERROR 
7 4S: ST (R1)+ i AeA TES ST pazRe 
007. ooo002 ADD a2, RO aon 
Bares Be BRE are 
i 000000 013246 MOV STMDAT 
ma 5% re ee T gpyestat ;7 PUT DATA FROM STMDAT TO DEVICE REG VCSTAT 
Basaze 4 bs" ; DONE 
NO 


gEra}e 
a 
© grep Te THE csp, 
i 004124 tpeo eames LOOP BACK 
re zo: | 


;# TO BE LOADED INTO DIFFERENT REG 


<£ 


Sareiuniatt imma tid wa 71 


Ll cl orl cel oul ouel cued el teed ave oul axel eee onl seed. el orl ed ened eed ceed nl ed ad al el ed ey ed ee 


eee 8 eed te AIR Re 
dig 377 ig west Preset 

41 14 214 Tarbs 

18 Opraee 1252 1es2 

SIE BBn98 399 Ete Bre 

418 007472 170400 BUFADR: 170400 ;BUS ADDRESS OF REG IN ERROR 
420 ear a ee a ae 

421 ;SUBROUTINE TO ISSUE N SPACES 


| 


E04 


MAINDEC-11-DRLPD-A MACY11 27(6S54) 14-DEC-77_ 20:22 PAGE 30 
ORLPO.P11 T10 LOAD DIFFERENT NUMBERS INTO DIFFERENT REG. 


i opac Ae x TS EU EARED Hi 1FRIN THE, SUBR iB BUT INE ye) THAT A CALL ON 
+ SPACE WITHOUT CEROING SPACEX iseues TONCY ONE SPACE 


= 
££ 
fur 








14 
14 
Re XSPACE: TsTB asTPs ;WAIT FOR TTY READY 
14 171442 V ® asTPe T A. SPACE 
1388 i bee Se AceN + OE CREMEN 
14 GT XSPACE {LOOP IF NNOt OB ONe 
14 R SPAC x ;RESET. COUNT 0 ZERO 
rh SPACEX: 0 ‘ 
tise ;SUBROUTINE TO TYPE OUT AVERAGES FOR THE RECOVERY TEST 
14 012737 020470 007536 XPRTAV: MOV SADBUFF , AVGTAB 
14 XPTAL: MOV a(PC)+,-(SP) 
14 AVGTAR: ADBUFF 
14 1 TYPOS 
144 4 1 YTE 4,1 
1 ay 007536 ee, AVGTAB 
144 7 007524 MOV * SPACEX 
1444 ? 7474 JSR XSPACE 
144S 4 7 013136 Cc TEA 
1446 1 TAl 
fens 7 T PC 
1449 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
tyes PAS SANs ae eae ae 
es si We ODE be HIRE Oni Bei 
1455 SBE 1 IT THE R. L ROTNG. WILL ALWAYS BE 
1N87 NUM, -(SP) T TNARY R ON THE STACK 
1438 ie MO eps sealed OTHE ROU 
Ibe STYPDS: 
1 MOV 
i 4 Nov i e 
Re ee i 
ii 
a ve ioe f ie pee oom 
14 He 
147 po000SS 000001 8 He 
1 1 - cee Spat K. Ra fe: TUP : i 
1474 Bop040 HOVE #’ ,(R3)4 fe: Te eal TER TO A BLANK 
1475 2s: CLR Re aH HES BCD NUMBE 





SEQ@ 0044 


salt ye ‘elie MACY11 
DRLPD.P CONVERT BINARY 
1 010000 
i 
1499 
14 
fe 
14 
iM 
ie 
14g9 
14 
es I 
D0 
is D0 
1433 Oo 000010 
0077¢ 
1436 BO 555 
ie OC ¥. 
en 
333 is 177777 


WUT 
ee 
NOUS WU 


0 0 PB 0 Bb eh pe be pe 


yt tate tee 


-\= 
+ OVE 





ee 





177777 


177776 


ooo004 


171112 


FO4 


14-DEC-77 20:22 PAGE 31 
MAL AND TYPE ROUTINE 


3$: S 


4$: nee 


8S: rt Ny 


SOTBL: 


sb 
ae ‘ 23 


SOBLK: 
: 


XTTYIN: pox 


x 
m 
: 


LR 
CLR 
118: ane 


OTR, (RO),R1 
RS 


tR3)+ 





KW OY 
RVICE ROUTINE 


aaite, OSTKs 
ne 


sree Ri 


a Rl 


;GET THE CONSTAN 
i FEORN THIS BCD DIGIT 


33 INC HE BCD DIGIT BY 1 


Check ie Bcd bictt=0 
Py Boyne LEADING 0’s? 


8 os ue 
eee TPE se 


ae 21S Hast NON-ZERO? 


53 

ioe 

33 SIGN FOR TYPING 
ii reer 


ni 
ee T R 
33 1 fh it e 
;;ADJUST THE STACK 
;;RETURN TO USER 


;SETUP CHARACTER BUFFER 
;CLEAR CHARACTER COUNTER 


ivan 
f 


i) “Es 


IAL CHARACTER ? 


SE@ O04S 


33 
DO 


SREGRECRERC ERS Oe 


a 


R= b= be ee ee bs ee 


BNEREENSENDSED BERG 


£ 


rs. 


tre 
Qo0000000 O0000000 


eb 0 be 


= 
£ 





eS ea ak ag 


ee ee ee ee ee eee be ee ee ee 


m 
) 


3 


one 


QW 
Ba Vou Fan 


[ek coed oul cml onl eve oul ened exe uel oul onl ened onel onal oud exmd ovl cud onal evel evel one] oe onal ed ed eed ed ed el edd ead ed ed ed ed el el ed od ed eed ee ee eee 


i 


14-DEC-77 ge i he 32 


MAL AND TYPE 


B 14S 
12S: MOV R1, (R4)+ 
INC CHRCNT 
ie, HRCNT 
BMI 4 
13$: TSTB asTPs 
BPL 13s 
MOVB 1, a$TPB 


; SAVE CHARACTER 
; INCREMENT THE CHARACTER COUNT. 


;ECHO CHARACTER 


;WAIT FOR NEXT CHARACTER 


; SUBROUTINE TO TEST FOR SPECIAL SHARACTERS :’tA’,’#C’,’tG’,’CR’,’,* OR *RUBOUT’ 


14S: cNeB #1,RI 
1 


BR 1 
3S: bee. 454, Rl 
MPB #15,R1 
ACRLF 
RT PC 
4S: ex 
y' 
XTTYIN 
INBUF : 9 
-2.414 
; SUBROUTINE WILL CONVERT 
:WHICH WERE ST 
BCDBIN: MOV ¥ RY 
MOV 6 vad R3 
CLR AB+2 
BCDBN1: CLR i 
R Re 


BCDBNe: T Srey 
BLE DEND 


;CHAR.='tA’ ? 


;RESTORE SP 
:YES, EXIT VIA *tA’ VECTOR ADDRESS. 
:CHAR.=’fC’ ? 
$NO,NOT ’#C’ 


sYES, EXIT TO MONTTOR 
egg HBR. : EXIT 

iN, ‘in 

{OP OFF. LAST IOMSACTERO 
sWALT i= XT CHARACTER 

Ug : RRIAGE RETURN TO TERMINATE? 
Meg Pipe WER-LF? 

Hest FOR CTRL_G 

!OTHERWISE TYPE °?° 


; WAIT FOR NEW ENTRY 
; CHARACTER STORAGE BUFFER 


(SEPARATED VIA COMMA’S) 


WOROS 
ORED IN A TABLE VIA *TTYIN’ TO OCTAL AND STORE THEM. 


: SETUP II STORAGE TABLE 
; TABLE FOR dy OF CONVERTED WORDS 


RUNNING TOTAL 


;REG. TO sT 

; TEMP. ST FOR ’R1’ 
sENQ OF TA 

;YES, EXIT 





HOY 





MAINDEC-11-DRLPD-A MACY11 27(654) 14-DEC-77 20:22 PAGE 33 
DRLPD.P11 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0047 
Ee q B4aBee Orbe GER, © USSCRARN gHSFUER, Ste 
1586 BEQ BCOEND YES, DECODE NEW WORD 
158 000060 CMPB (R4) , 860 
1588 2s BLT BCDERR \Test FOR LEGAL NO. 
1589 000067 CMP (R4) , 867 
iegt BGT BCOERR 
1 177770 Cc #177770, (RY) ;STRIP NO. 
1 MOV (R4)+,RO :SAVE NO. IN RO. 
18 MOV R1,Re ;SAVE CURRENT TOTAL 
1 A Ri :NX2 
i tf ive 
1 ABD be R1 ;N+NEW NO 
i 3 000077 BCDEND: BNP proens 
en 8 econ 
tae nov RL, (Ra) Save EORVER FED VALUE & SETUP TO SAVE NEXT 
1603 _—e 5 Bcosn Noe, conve RT NEXT WORD 
1606 BCDERR: TYPE 
108 81 p0P0 BOaRTTYIN ‘10 Be t TYPED ON QUESTIONABLE ENTRIES. 
1610 BCDTAB: 0 ;OCTAL STORAGE TABLE 
iets 
igie Deaton Wert Re In ESUNT BAB THE CH TO Be CONVERTED 1 TAB oe 
1618 seNTERt RIN TH That: + CAUSES DELAY BETWEEN MUX LOAD ANOS T OF 
161 
1 1 77 167 saath: CLR 
a bless yee 2 013132 Sree Mpl hg Up Boée ree SBoess."° TO BE TAKEN 
te bibyed 001037 eee BNE os SRaF IN NHIBT? DELAY 
ipse camena” hanna ened eae HOV RAPES STR T 1 j/READ DEVICE REG ADCS,PUT DATA IN STMDAT. 
1628 : or ts cana ;* Mov STMOAT, BADCS ¢_Pur pat DATA. FROM STMDAT TO DEVICE REG ADCS 
ie 61 12 Bo5337 819938 ans 4h: Bec BeLavi” i36T 
133 ;% MOV @ADCS , STMDAT ;/READ DEVICE REG ADCS,PUT DATA IN STMDAT. 
i 113737 013050 013246 MOVB ADWRD2 , STMDAT 
1 


Crro 
Oo 
— 
a 
8 


STMDAT , ADCS 37 PUT DATA FROM STMDAT TO DEVICE REG ADCS 


WwW 
N 
‘* 
3 
< 


TT 


5B ! 


fff 


We 


COOKS OSC SSCS SCOTT 


DOVE £ r-O.DD VEL 


NER ERR N A Laas a 3 


SOOO KOO 


ee ee ae ae ee ee Be ae ee ee be ee ae Be Be ee ss ee Be ae ee ee ee ae Be ee ee Be be Be Be be ee Pe ee 


oo 


~ 


TO4 


11-DRLPD-A MACY 11 27 (654) 14-DEC-77 0:22 PAGE 34 
1 CONVERT BINARY TO DECIMAL AND TYPE ROUTT SEQ 0048 
105 000411 BR 1$ 
105 2s: NOP 
1055¢ NOP 
10554 013737 013050 013246 3S: MOV ADWRD2,STMDAT  ;LOAD CONTROL 
3% MOV STMDAT, IADCS ;7_PUT DATA FROM STMDAT TO DEVICE REG ADCS 
LORD cH. & START CONVERT 
010572 1S: ;WAIT FOR DONE 
;# MOV BADCS, STMDAT ;/READ DEVICE REG ADCS,PUT DATA IN STMDAT. 
10602 105737 013246 TSTB sTMort ~ 
os ster + OEE DATA 
3 MOV ,STMDAT  ;/READ DEVICE REG ADDBR,PUT DATA IN STMDAT. 
1 7e4 13246 MOV TMDAT, (R4)+ 
1 13132 DE EMP1 ; DECRENENT COUNTER 
1 3347 BG es :IF NOT 'O’ TAKE NEXT CONVERSION 
1 013120 CLR DELAY 
1 RTS Cc 
CPDLAY: ;POP-11705 
poet Sp 
PP-t ius 





10644 
JUSUULU 
1 CPTIME: 
Bibese 1 CTYPE: 
106S4 1 ADCS1: 
;PRINT DECIMAL VALUE IN Re 
DECPRT: as 


bee 


aPsw 
sosbrerag ore 


ll 
ooooc2 011042 TYPT3: 
011034 DECOUT: 
177777 011036 
011040 011034 





SSB tas Cama aoreaeees 
22 
Zz 


ECL L-ORLPO-SNVERT BINARY To DECIMAL 






& 11 11040 
4 1101 11034 
B34 O11 170126 
3 1 011034 170120 
Ad il 
| il 
| il 
il 
| ii 
il 
| il 
il 
| 


NNNNNNNNN 





a be 0 bb bb 


Dee bao Boe bm bas bone Bae be bane be Be fe pe 
~ eR Pon 282 


Oe i 0 be Bb FB 0 0 = bb ee 


g2z2 NINNNNNNNNNNNNNNNNNSNNG 





ee ee ae ae ee ee be ae Be ae Be be ae ae Be a ae ee ae ne ee ee ee ne a enw Be Pee ee en ee ee ne Be Be Pee ee 


3 


14-DEC-77 
TYPE 
DECI: poy 
DECe: Fle, 
prt. 
RTS 


en 


2" 
a 


04 


Siffre? 25 


#260, ZERO 
#260. DIGIT 
asTPs 


-4 
OIGIT, asTPe 


;COMPUTE THE RESULTS OF S12 CONVERSIONS AS HIGH, LOW AND AVERAGE 


CMPTE: 
GHPTER: 
GETDAT: 
TSLO: 


TAGA: 


AVGDAT: 


sRORAILORABIRGEPGEIBICEES 


gy 
8 8: 


FILE 
E OF AVG. 


8777 bHpcKt 
ce 


TS SRE. no TO — ’S11’ NUMBERS 


oh EE a 


PRL ea ce 


Pa AS NEW LOW 
tADD GARRY TO HI ORDER 
ee *BPvide ee 


;SHIFT CARRY BIT INTO LO ORDER 


erMorr 


ne 


; DONE? 
;YES, ADD REMAINDER TO LO ORDER 


TO CALCULATE THE PLUS & MINUS S COUNT LIMITS FROM AN AVERAGE 


So 


T TEnPe (R3)+ 
TEMP 


-1 TO -5S 


Ieee Biaedletien Vas (POS. ) 
BET ae 


= 








;ADD THE COUNTS AND SAVE TOTAL IN SPREADS OF °1-4" 
CATRS: 


36 


;=TO NO. COUNTS AT SPREAD OF °1’ 
;=TO NO. COUNTS AT SPREAD OF °2’ 


;=TO NO. COUNTS AT SPREAD OF '3° 


1 
1 
14 Ol 
1 
1 
1 
1 
1 
1 


NO. COUNTS AT SPREAD OF °4’ 


I 14- Ce -77 PAGE 36 
Be MAL ve ROUTINE SEQ O0SO 

i MOV 8S 

ious MOV Aviace, TenPe ;MOV A aren ione 

124 snap MOV Sey UP RigctION TABLE NEG. 

i MOV Tene, -(R3) ica ave "8 media 

: : Ce i BRANCH "5c 

1 4 ;CATEGORIZE THE COUNT SPREAD AS '+6 & -6’ COUNTS FROM THE AVERAGE 

1 Hi MOV OW, R3 ;CLEAR COUNTS 

1 1 CATRI: CLR (R3)+ 

i ii SNE corn oe RS tho eERR COUNTER 

13e6 ll MOV #1001, TEMP1 + NO MPaRE irc TS 

176 it oe MOV SADBUFF , RO SET uP ab our 

ie Sli "BEG CHIR apo SEXIT IF '0 

i it CMP Res Femee 

i it ae TERPS, AVERMS 

tse BLS ewe. 

1 114 CATR3: CMP (Re)+, thee 

i 114 Q ATRY 

1 ti NS P 3 R1 

1 14 R3 

1 4 HALT ;FATAL_ERROR 

1 114 CATR4: ASL R :MULTIPLY 'OFFSET’ x2 

1 it NC Rt S(R1) 

1 11444 T 

1 1 OVRHI: INC 

i il OVRLO: INC AL 

i 11460 : Re 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

i 

1 

1 


SESPITERASE SPATE BISON SAN Oe Se 


Ob bb he pe 





epee oon IS 


Ob 


;2T 
;EXIT 


04 





-ASCIZ <15><12>"STATIC REGISTER TEST"<15><12> 


-ASCIZ <15><12>"ERASE RETURN FAILED TO SET READY"<15>< 12> 


MAINDEC-11-DRLPD-A MACY11 27(654) 14-DEC-77 : PAGE 37 
DRUPD Pit CONVERT BINARY % Bedi mad. TYPE EOF ENE SEQ 0051 
1801 ;SUBROUTINE TO TEST FOR THE KEYBOARD FLAG BEING SET 
1 11574 105777 167344 TSTFLG: TSTB aSTKS sFLAG SET? 
i Wee 010020 ack ba XTTYIN iNO, EXIT ; YES, INQUIRE 
i it 7 1$: ais BE’ Sane 
i808 8 1 TITLE: .ASCIZ ¢15><12><12>’AR-11 DIAGNOSTIC TEST II, (MAINDEC-11-DRLPD-A)’<15><«12> 
i810 Oil 
181 1 
1 1g 1 
181 
1814 
Bie Oli 
i | 
1 
1 


-ASCII <15><12>"TYPE LETTER ’ * TO RUN DESIRED TEST:"<15>< 12> 


-ASCII “’A’=STATIC REGISTER TEST"<15><12> 





tet 


-ASCII “*’B’=SCOPE ADJUSTMENT TESTS"<15>< 12> 


A 
7 


-ASCII “*C’=A TO D CALIBRATION TEST™<15>< 12> 


-ASCII “’D’=A TO D REPEATABILITY™<15>< 12> 


ee ee Be en me ee Be ee fn bn fe Be PP hn Pe Be eB be be eb be he he bb Pe 


eas 


ee a ee ee ee ee ee ee ee ee ee ee fe Be be pe ee 


pa EER RS SS EF Lier ney iy isi eo 


MAINDEC-11-DRLPD-A MACY11 27(6S4) 


ORLPO.P11 


fur 
ru 
_ 
£ 


eee i 


rit 
We 


| 
ee ee be ee he te ee ne he ae be be he be ee Be he he he ee 
falaalatatatet rita de tittet tts RRR 
OOOOOOOOOOOOOO OOOO OOOOOO OOOO OOOO OOO OOO OOOO OCOCOOCOCOCOOC0OC0O 


RERPARRE A Lidice da Ay 


b= Dh Fe be Gre fs bas fon pe fas fas hae han fw 2 me Pan fan Panne Pee ae n= a Po fae be Dm ee 





RRR ee ee ee meme mee me eee 


SEEN W Manabi COLIN 





MO4 


14-DEC-77 20:22 PAGE 38 


CNTRLC: 


gp 


MES13: 


MES14: 


MESS: 


MES16: 


-ASCIZ 


-ASCIZ 
ray 
-BYT 
-ASCI 
-ASCI 
-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


Boeest wants o0S2111 


ay i Se 


“"E’sA TO D RECOVERY’<15>< 12> 


"#0°¢15><12><S56> 


HE: 18:8e,0 


9 * 
<15><12>"SCOPE ADJUSTMENT TEST’ 
<15><12>"A TO D CALIBRATION TESt’<15><12> 


<15><12>’A TO D RECOVERY TESt’<15><12> 


€15><12>'CH ’ 
<15><12>""E’XT. OR *I'NT. OR ’C’LOCK. SYNC? “ 


<15><12>’A TO D REPEATABILITY TEST’<15>< 12> 


€15><12><12>’°CH.(S)? ” 


<15><12>’SWR8 AND O THRU 2 CONTROL PATTERN’<15><12> 


*COUNT SPREAD? ’ 


SE@ 00Se 


a 


~ 


Bs Ss 


ee Fs 
VO 


OO0WODDDW 
ee 


NOU LW O 


Say ya 


Os De a a te ae Bae be ae te ae ee Be be be be ae ee ae ae ae ae be ae es fs ee ee se ne ne ee eae ee en nn en se es ne ne sw De Pes pnw 


a pu alk eRe ES EE 


ee eb be bb bb 0 0 he 


NO4 


-DRLPD- MACY 7(654) 14-DEC-77 20:22 PAGE 39 
: PO CONVERT BINARY O DECIMAL AND TYPE ROUTINE SEQ 0053 





Se MES19: .ASCIZ <15><12>’°CH. LO AV HI’ 
44 
MES20: .ASCIZ <15><12>" LO -S -4 -3 -@ -1 AV #1 +2 +3 +4 +5 HI’ 
1 
EM1: -ASCIZ /REGISTER CONTENTS CHANGED IN ERROR/ 
4 
DH1: -ASCIZ /ZERRPC BUFADR EXPECT BAD/ 
3034 


De te i i Bb BB Bb 0 bd = 


= N 
007472 001124 OT1: SERRPC, BUFADR, SGDDAT, SBODAT, 0 


BOWRDS: sLOW BYTE OF *ADWORD’ 
yt : : 
AVECTR: INITA 






ral 
a 






DOG 


+o¢e+ 
IO 


+ 





OOO 


ate 
a 


PERE PRA dsc i 


ee ee ae ae a be be aw be ae ae ae ae ae we ae ae ae ae fe ne Pn eas Pes ne Deas nn nn ee ene Dene es Pee 


PUPRI ER eee eRe E RTS 


SPreeeeeS 


zs 


te totetetes 
aera ear as 
i tt oe) 


mr 


1-DRLPD-A MACY11 27(6 
CONVERT BINARY TO D 


EGSRZNS 


£ 


YPNIT TT OMNES S ULI 


WWW) 


te 
£ 





De ee en en ee a Be Be Be Be Bh ee Be be fe be Pe Be fe be ee 


: 


BOS 


54) 14-DEC-77_ 20:22 PAGE 40 
ECIMAL AND TYPE ROUTINE 


; TEMPORARY STORAGE 
TEMPORARY STORAGE 
! TEMPORARY STORAGE 


saan 
OOOOOOOOOOOOOOOOOOOOOOO0O0O0OOO00000000 


2 
2 


hahahaha RT 


3 
eure 


etainiatn 
r3fWueE 


. HANDLER ROUTINE 


eee UTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
Han LOAD THe $euy NURBERCSTSTNA) INTO OER TSPLAY REG’ (DISPLAY 7:0) ) 
{#AND LOAD THE ERROR (SERFLG) 15: 


o 
+ 


NTO OISPLAY< 15:08> 


#THE SWITCH OP TONS PROVIDED BY THIS ROUTINE ARE: 
; #SW14=1 ON TESt 

Sehic ——Faggedt Ebzgrzos 

; #SWOS=1 LOOP ON TEST IN SWR<7:0> 

3% SCOPE ;;SCOPE=IOT 


I Rett yy pen 


COS 


MAINDEC-11-DRLPD-A MACY11 27(654) 14-DEC-77 20:22 PAGE 41 
DORLPD. P11 SCOPE HANDLER ROUTINE 
2016 013250 SSCOPE: 
2017 013250 104407 CKSUR ;;TEST FOR CHANGE IN SOFT-SWR 
13385 395 040000 165656 1S: gt? geiTi4, , aSWR 5 LOOP ON PRESENT TEST? 
l 1114 BNE IF SW14 
aueeeSTART OF CODE FOR THE XOR tis TERSeaes 
013264 000416 &xTSTR: BR 6$ THE “XOR“ TESTER CHANGE 
1 Mov a CSP) iittas qh ea TENTS. OF THE ERROR VECTOR 
3558 813348 eae 000004 nov ri DOHERAVE 33SET FOR T TIMeOU 
33 nov A Micevec ae 700 BRR R.VECTOR 
0 SSVL HE NEXT 


Z 


S$: —e (SP)+, (SP)+ 33 "Faeoe RET R_A TIME OUT 
§ )+) QBERRVEC 33 NY $e oF 
ie EST 
6S: ; 888e8END OF C FOR THE XOR non, Th 
TT08, dSWR 


1 oe 


000400 165610 BIT $5 ON SPEC. TESt? 
165602 001102 ge ,STSTNM i40N THE IGHT TEST?  SWR<7:0> 
: 001103 2S: fe LG ;;HAS Pio OCCURRED? 
12479? 001115 001103 RMAX, SERFLG ads FOR THIS TEST OCCURRED? 


ence 

001000 165552 Bit 81709, asur tHE S08" of! ERROR? 
V ,SLPADR ;;SET LOOP wenn TO LAST SCOPE 

4s: eRe LG i sZERO. THE ERROR F 


Be 001110 001106 7S: Mo 
001103 
at il ee STINES A i ee TEIGRATIONS TO MAKE 
004000 165520 3S: T 481711, aSuR ray 
001210 fe dass TeaTbRy Orca 

ve 2 How ay eihe tes 

1166 001104 cH INES, SICNT 
a a oe - 

I SSVLAD: INCB T HH 

1 001206 MO TSTNM,STESTN ;; ee Baa eet ‘ee 





fas pee 
- 


t : TES 
Re Oi uae ae Le Pete cre, 
Bor pe Tes420 SOVER: Roy gieis. 90 sPRISPLAY oon Re 


XES PS 
000012 SHXCNT NT: 10.5 a meareee Hat NUMBER OF ITERATIONS 


fp RRR EEE RARER EERE EERE SERRE RRR E EERE EERE E 


FERRE OU UU URMR Sees a2 22s oe eR TUNERS NUSS Ns 


WEL aR sags eiccnes Secure 


oO~ 
a 
-_ 
o 


: 


DOS 
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DRLPD.P11 ERROR HANDLER ROUTINE SEQ 0056 
2070 ery a prod Tt INCREMENT THE ERROR FLAG AND THE ERROR COUNT, | 
ere EM AND THE ADDRESS OF THE ERROR CALL 

? arte 4 vi TOeD BY THIS ROUTINE ARE: 
Soe bods Hr On TYPEOUTS 
Bite teeuioet att BN Faron 
5B 4 ge COOP ON ERROR 
ag 3% ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
KSWR T et FOR CHAN us SOF T-SWR 
001103 7$: NCB RFLG HE ERROR 
Q 'T LE FL ao eyt° ZERO 
001102 165372 v 5g grit, go1SPLAY | SPLAY iia ERROR FLAG 


165362 a aati | 
A. 
1S: INC FE RRORS 
MOV $n] SERRPC i SS OF ERROR” INSTRUCTION 


Rove St ac ae THD SAVE THE ERROR ITEM CODE 
Bhi 159 8. PEASERRTYP 1486"To USER ERROR ROUTINE 





a 
a 
5080 
a 
eS 
: 


1 
1 
| 
1 


ee 
he 
os 
WG 





370 
i 
& 
a 
a 
g 
3078 
é 
: 


oon! oozes EP REPTEN SEW AUNSTTG WE Ete Rcpoer 
001114 013652 MOVB TEMB, 21S iipetaiten ty R RAS RROR NUMBER 
5138 a 015700 ion Br ,SATY4 33 T FATAL O APT 
*BYT 
2104 000777 225 tt 223 ; ;APT_ERROR 
318 3 g’* Hees iF NUE 
1 Oreia + eT FOR SOF T-SWR 
ct 433395 001000 165242 3S: br #81709, aswR 5 E3e ON —RERE, JN 8 GET? 
1 } : v PERR, (SP) 4 TURN FOR LOOPING 
aH Z ate 4S: rs sCPeRR, ::CHECK FOR AN ESCAPE ADDRESS 
e113 8943 001170 — v SCAPE, (SP) HH ADDRESS FOR ESCAPE 
2116 3716 oo00002 ; TURN 
112 . SBTTL ERROR MESSAGE TYPEOUT routine 
1 ig THIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITENB) TO OE TERMINE 
120 iy S I Ne soften te 19 TERMINE , WHICH 
SSchonts Pe SORORRLaHE TRFORRAT EIN Pieces eT 
i ta ONCERINT THE ERROR. 


IEA FIN SSOVER TOD GSOVEN LOW ODDIE LOU ODBIORLO ODDIE | 


O0OGB0000000 COOOOOOOOOOOOOOOOOBO0O0O000000000 


be bb bP bb bb bh eb be Bb be be be be fe he bb bb en 


rurororurururorururorororororurorororoforurorurororurorururororurururururororururorururorururururorurururury 


1-DRLPD-A 
137. 

137. o4401 
13768 

13238 433700 


013736 013746 


DO eb Be bb ae ee Bb he ee 


-_ wed 
SS 


LT SS ay ae aT a eae 
Pe 2 - 5 
peaeresress 

PN Tat ty 
ODO00000000 


i 
Oo 
be bee Bh hee be ree be he pee 


P 
Sere 





MACY11_27(654) 


001177 


001114 


001116 


SERRTYP: 
TYPE 
MOV 
CLR 
OS 
MOV 
TYPOC 
BR 
18: Cc 
cae 
Ast 
ADD 
MOV 
pee 
28 YPE 
iVPES 
3$: Beg 
4S: vee 
TYPE 
Ss: MOV 
BNE 
6S: MOV 
TYPE 
RTS 
7$: 
MOV 
TYPOC 
TST 
8 
YPE 
8S: 
. SBTTL 


14-DEC-77 20:22 PAGE 43 
ERROR MESSAGE TYPEOUT ROUTINE 


SCRLF 
RO, -(SP? 
R 


@eSITEMB,RO 
1$ 


SERRPC ,-(SP) 


RL 
pee 
a(RO)+,-(SP) 


(RO) 
6$ 


BR + 
er 4 7¢ 


B pout eo uP ROUTINES 


<CARRIAGE RETURN” & “LINE FEED” 
i SOE te uee THE ITEM INDEX 
isTF ITEM NUMBER 1s. ZERO, JUST 
4 4 


TOE areas Por! MePEUT 
fate ASCII(ALL DIGITS) 


| ADJUST, THe THE INDEX wPOeAHAT ET MILL 







INTER 
ME poprren 


NTE Feo" 


“POINTER 


ca! Se fomeee 


OF BO ut & “LINE FEED” 


eerws ay ae, 


2 
‘ia 


)+ F IY she 
Re prt (ALL DIGITS) 
i ae R NUMBER? 
Nove) SPACES 
4: Sega 


«aE 36S aE A AE a A a a a a a a a a a a a a a a a a a a a a a a a 
DOWN ROU 


ice. 


rs) =3™S 
Soess xn 
4444 @ 
D 
RRRK & 


SE@ 0057 


FOS 





MAINDEC-11-DRLPD-A MACYL1 27(6S4) 14-DEC-77 20:22 PAGE 44 
DRLPD. P11 POWER DOWN AND UP ROUTINES SEQ ooss 
2178 O1iis 012737 014126 oo000e4 Mov #SPWRUP, J#PWRVEC ;;SET UP VECTOR 
of 014124 000 BR .-2 ;;HANG UP 
: ; RE ae RE Te ee 
él 14 a ooo024 $pwRUP: Mov aSiL yr gonenes: aa FOR FAST DOWN 
1 14 14 LR ssavee’ + T FOR THE TTY 
5187 is 19354 1S: ing VR6 Malt f THE INC 
189 14 1 164762 MOV (SP)+, He TACK NTO WR 
1 14 1 MOV (SP)+, 33 T T 
fa Bisiee Bt Mn se Se 
5135 14 1 MOV ( 8 iB Op Tpek NTO R 
le Biles 8 ney Be poe S1eek INr9 Bb 
1 14 i 4os4 o00024 MOV WON O8PURVE Cc’: :SET THE POWER DOWN VECTOR 
1% 1s Bad 0 o000c MOV NPURVEC TS ° Hb OF 
14 SPWRMG: aor rungs =e vet FALL ja ROOT RTER 
2 14 SPWRAD: aifoRo BEGIN 33 STAR ly Be 
14, SILLUP: HALT 53 THE POWER UP SEQUENCE WAS STARTED 
: hy pecentt's .-2 ii DEF THE POWER DOWN WAS COMPLETE 
es 2 2 952123 SaRMeG: “ASCIZ <15><12>/RESTARTING AFTE 3 OER FAILURE/<15><12><12> 
& 14 1 Beii0s 
2 14, 35 
e319 Giese G30 
2 ie 14272 
ssa Even 
gels .SBTTL BINARY TO oCTAL (ASCII) AND TYPE 
2217 eet TNE Te USED 10 CHANGE A le-BIT BINARY NUMBER TO A 6-D1 
5518 use IS USE TO CHANG 8 16-BIT BINARY NUMBER TO A 6-DIGIT 
eee ge --- aes TO sETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO tYPE 
222 5 aCAL MOV NUM, -(SP) ;NUMBER TO TYPED 
gees $i TYP PECALL FOR TYPEOUT 
Fl ta .BY N :iN=l T9 FOR NUMBER OF DIGITS TO TYPE 
2225 i ‘BYT M :iM=1 OR - in 
5558 a bigs SUPBRE S Sor eAOTNG Zeros 
2228 ;# 
eeces ;# 
& 
te 


TYPON-=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
TypOS OR STypOC 


N 

NISESE RT ERS BMS GRRE oaeS 
OOOOOO OOO OOOO OOOO OOO OOO OOOO OOO OOOOOO00000000 
ee ee a ae a ee ee ae ee ee a ee ae ne Be ee Be ee be 0 ee eee 


RES INSRE EID woRetite TRaRSReS UR IIOS Te SS EeS 


RURARRIY 
a 


Barcus 


NNN 
BD Bod 


11-DRLPD-A MACY11 27(654) 14-DEC-77 20:22 PAGE 4S | 
1 BINARY TO OCTAL (ASCII) AND TYPE SEQ 00s9 
;% MOV NUM, - (SP) ; :NUMBER T0_BE_TYPED 
is TYPON !CALL FOR TYPEOUT 
; #STY pOC---ENTER HERE FOR TyProuT OF A 16 BIT NUMBER 
te MOV NUM, -(SP) ;NUMBER TO BE TYPED 
te TYPOC tECALL FOR TYPEOUT 


BORO RP ooiusiz SB TYPOS! MOV, «= PBB} so TeL ed eTee SWITCH 
014521 Hove te SOMODE+1 {:NUMBER OF DIGITS TO TYPE 
BR 
go gir sto: Fig UP, HST BS Zeb S THE GBT 
014616 STYPON: ne N T THE ITERATION C 


i T is NUMBER OF DIGITS TO tYPE 
;;SUBTRACT IT FOR MAX. ALLOWED 


RP eat Bae 


° 
& 
Bag8Es 
EO alo 
eee 
2 


a 
32 


ze 


ye 
CLR R AR _T TPUT WORD 
1$: Bat RS ATE NTO “Cc” 
es: ROL RS + Ben THIS DIGIT 


p 
22 
RRR 
3 


A ARE ott 


r 
1 


177770 bre 8177770,R3 Hie aaa JUNK 
S RY HIS 0? 
4S: sia RS R 8 big 
00 4 Ss: gfe ak Fe i oat heeoy 
14 ty rope 3 ° E THIS INf GIT 
14516 7S: DECB $OCNT ; He 


et eg ce *° DO 





NC HEIL oe LAST DIGIT ISN’T A BLANK 
BR bi ers" LAST CIGIT 
6S: MOV fie}: 68 
HOV (SP)3°R3 RESTORE fa R 
oooo0e ooo004 ry esr: ‘4 n¢gP) :SET BFack FOR RETURNING 


| 
p) ;ADJUST RETURN ADDRESS 


OS 


MAINDEC-11-DRLPD-A MACYL1 27(654) 14-DEC-77 20:22 PAGE 46 
DRLPD.P11 BINARY TO oCTAL (ASCII) AND TYPE SEQ 0060 
3) Bisel 000806 Rl te BE GHRG FOR ASCII Sat ae 
S363 fiseis fee a, BES RSca tats 
2291 014520 000000 Nae ;;NUMBER OF DIGITS TO tYPE 


SoerTL TYPE YPE ROUTINE 
Lae e eee eee eee ee ee eecar MESEROR TLET TERMINATE LT A O BY 


2295 i bRou TINE TO TYPE ASC PMOL evans] TERMINATE W 

ee ROUTINE WILL INSERT A NUR AFT ER Ma Aone. FEED. 

ecg NSTES: pt “RONTA Rs aries Sis ee D Das TH of ALLER. HARACTER. 
se38 Et ils te eek ahha 

2301 

Feit at) using, 8 TRAP PUB RUC TION ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
2305 Awe 

2306 3% MESAOR 

2307 ; 

5308 “S22 105737 001157 STYPE: TSTB  S$TPFLG ;31S THERE A TERMINAL? 

at T 33 ti a IF NO TERMINAL 

2313 010046 1S: MOV -(SP) HB acs ox . _ 

Sit¢ 942599 BBBBRT oo1e2e CReB SRL SE he env Roabr Rose 


Baeza 000100 001223 Bure $ée soo. seve | es Bel aa apm: 
a 813878 Rs GBOgpyS FOR APT 


61S: < 
000040 001223 62S: ITB SAPTCSUP,SENVM ;; SSED 
2s: MOVB )+,-(SP) 33 rie TYPED ONTO STACK 


pas 


De ee ae ae ee te be ee be be be Oe be be ee 


esssstecetes sseesopenesatse 
se 


4 ’T NA 
ce those HG teste BEEP AE nec 
: (SP)+,RO 3 
8368 oooo02 3S: #2, (SP) + BOF T RETURN PC 
2330 lee? 000011 4b: CMPB BHT, (SP) ;;BRANCH IF <HT> 
eG oo0200 8 BERLE , (SP) ;;BRANCH IF NOT <CRLF> 
2334 005726 TST (SP)+ spor <OR>< F> EQuiv 
ee gS Gh S et 
3 10s 037 015000 etn SCHARCNT pg CHARACTER COUNT 
53 Bo4e33 014734 Ss: JSR C,STYPEC $85 TYPE TH THIS Te CMARACTER 


MAINDEC-11-DRLPD-A 


ORLPD.P11 


rr 
sete 
oO 
mee 

£ 


rururururu: rey: 


N 
- 
oO 


SEELSLESLSELSCLLLCLLCES 


ei ab a a EE aS 
WRLERAESINSO 


Ob bo Fe 0 FO bb 


BBS 


WwW 
NN 
wre 


rurururuofrururururu: 


is i iad ERED: 


tur 


TYPE 


ae Hue 


N 


001156 
001154 
000001 
Bisco 


164210 


000176 
164124 
164120 


00807 


001134 


b18836 


MACY11 27(6S4) 
ROUTINE 


015000 


164202 
oo000e 


o0000e 


001140 


IOS 


14-DEC-77 20:22 PAGE 47 


6S: cups SFILLC, (SP)+ 118 It TIME FOR FILLER C CHARS. ? 
MOV SNULL , -(SP) He GET @ OF FILLER R GHAR. “NEEDED 
7S: DECb 1(SP) +;DOES A NULL NEE TO BE TYPED? 
BLT 6 ;;BR iF NO--GO THE NULL OFF OF STACK 
JSR PC STYPEC ::G0 TYPE A NULL 
cB HARCN ::D0 NOT COUNT AS A COUNT 
BR ; ; LOOP 
;HORIZONTAL TAB PROCESSOR 
8S: MOVB s. (SP) is REPLACE Bree WITH SPACE 
95: JSR yt YPEC : TYPE A 
BITB 87, ENT ?BRANCH IF NOT AT 
BNE ;TAB ST 
aR noe SPA E OFF stack 
STYPEC: TSTB a” . 43 IT UNTIL PRINTER IS READY 
MOVE (SP), aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
MPB R,2tsp) 7315 C ‘ TER A CARRIAGE RETURN? 
ere cH CNT us _ ce Ar CHARACTER COUNT 
1S: BRee ar BSP) C TER A LINE FEED? 
Pre os re :8 CHAE CHARACTER 
i COUR ACTER SOUNT S BRAGE 


ERR ONT Q 
TYpEX: RTS c 
-SBTTL TTY INPUT ROUTINE 
ee ee 


ASQFTURRE SuITCH REGISTER CHANGE ROUTINES 8 


aay ee paeae* SuTTCH REGISTER TRAP CALL 


T-SWR SELECTED? 
NO 
THERE? 
“ ae WAIT AROUND 
ASCII 
ofall 


HE 
a ag + 3, E 
Le roa, Ys eh 2c auro-mooe 


Cc 
BEQ iss i | BRANCH I 


sctswe: TYPE © SN/SuR EEGPE CURRENT CONTENTS” 


SEQ 0061 


~~ 


an & 
a2 of 


eee 
wou 


Be pee ee ee 


ee ee 






fh 


SHR DROUGATAUMNONG SKEETER RgEaEReRROeS rer 
PicLtenronwor Novos 


COOOOOOOOOOOOO0O00000000000 O0000 


OO ae be ne be be a ee 


1-DRLPD-A 





TTY INPUT ROU 
013746 
401 


000176 


1 
01SS47 
164042 


164036 
177600 


000015 
ooco04 


Bye 
1135S 


000100 


a eee 


001176 





tg BEN 27( 654) 
TINE 


163762 


000001 
163740 


JOS 
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19$: 


20$: 


10S: 


178: 


188: 
. DSABL 


MOV SWREG, -(SP) 
TYPOC 
TYPE , SMNEW 
CLR =(SP) 
CLR -(SP) 
TSTB Tks 
BPL 
MOVB STKB,-(SP) 
BIC #tC17?, (SP) 
CMP ¢ ), #25 
Wee | SeNTLU 
800 Sp 
1 
CMP (SP), #15 
16 
it 4(SP) 
Q ii 
MOV (SP), aSWR 
cans 
Cc SINTAG, #1 
BNE 1 
nov #100, aSTKS 
J STYPEC 
chp (S63, ae 
che (SP), #67 
T 1 
° ¢ (SP)+ 
2(SP) 
Q 17 
(SP) 
(SP) 
(SP) 
2(SP) 
= (SP), (SP) 


YPE 
LSB 


292 


* 


15 SAVE SWREG FOR TYPEOUT 
iig0 ee Om Meh bh an ete DIGITS) 


et "COUNTE 
tite pnoT TRY. AGAIN 


t i AKE ria oueit ASCII 


HME eon" 


;YES, ECHO Ag ct) 


; TONORE PRE Yt ReAIN 


3328 IT A som? 
a ts AT THe FIRST CHAR? 


NEW 
4 aaa TTY “eae INTERRUPTS? 


ps ay KBD INTERRUPTS 
Enar <0? 
< 0? 
= YES 


YPE ?< Re XLFS 
$3 tyre, ¢ CONTROL -U 


s Sepgcocngsseceesssescesenesseceeereesestes gare ta te 


ROCHR 


jATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


3; INPUT A SINGLE CHARACTER FROM THE TTY 


SEQ 0062 


KOS 


MAINDEC-11-DRLPD-A MACY11 27(654) 14-DEC-77 20:22 PAGE 49 
DRLPO.P11 TTY INPUT ROUTINE SEQ 0063 


;# RETURN HERE ;;CHARACTER_IS ON THE STACK 
ti !iWITH PARITY BIT STRIPPED OFF 
’ 


Bt SRDCHR: MOV (SP) 
ooooo4 o0000e MOV pit 
1057 63642 1$: TSTB kK $3 
BPL 338 R 

TK 
C< 


(sp) IREAD THE TT 
ase? § Hite: A gont ag if ANY 


;WAIT FOR A CHARACTER 
LOOP TT TS THERE 


Sapa pans croR RR ORNS 
Ree 5 SBR 
S 
Quzpamomz 
ee 
epnpy reps 
Bons 
Re w -y iT 
6% 


ae eB 


SP), #140 + 
bi 





us RAKE it ASE 
EETTTTT TTT TTT TTT TTT TTT TTT TT RARARARKRARERRRAARRRRKEREREER ERE 
i ATHTS: ROUTINE WILL INPUT A STRING FROM THE TTY 


> #CALL: 
i ten HERE AbDRE SS ss Or EIRST CHARACTER MILL BE BE ON THE STACK 
T TOR WILL BE 0’s 





4 
oe 
ss 
SROLIN: ) 33 
O15514 1$: NOV RetTyin R3 {EY eponess, 
15524 es: Bis aSTTYINGS. RI He BR iF ve 
HR Hee ac ala FROM THE TTY 
| i 
000177 10S: iButs 
001176 4S: TYPE PEAY ye 4 
SEE 3S: Tyee Si GLEAR, Te THE C AERO = 
1 Cc ope FOR, RETURN 
77777 L . joa Hct RETURN “He 1S) 
— move tSbhesng Empat TEED 
MOV (SP) 135, g STACK AND PUT ADDRESS OF THE 
DO000 MOV 4(SP3 2(SP) 33 FIRST ASCII CHARACTER ON IT 
15514 00000 mn Nv aSTTYIN, 4(SP) 
1 9s: .BYTE O + OE ORAGE FOR ASCII CHAR. TO tYPE 





eee ae ee ee ee ee eee 


OS 


MAINDEC-11-DRLPO-A MACY11 270654) 14-DEC-77 20:22 PAGE 50 
DRLPO.P11 TTY INPUT ROUTINE SEQ 0064 
gone pigeta ate TTYIN: “BKB. 8 + ERMINE OBYTES FOR TTY INPUT 
SeRi it Begese o0so1s 000 Sant: -BEKF 74U7615> «12> + BBR PROL af 
5s05 O1SS31 136 QOBS07 90012 SCNTLG: <ASCIZ 71G/<18><16> _ };CONTROL “G 

15536 3529 O20lee SHSWR: (ASCIZ <159<12>/SUR = / 

12247 3505 SNMNEW: .ASCIZ / NEW = / 

12224 sequen pooode omoOS on . 

SBTTL READ AN OCTAL NUMBER FROM THE TTY 


5 5 SE He AE-SE A SE 96 A 0 9 a a a a A a a a a a a a a aE 
;&THIS ROUTINE | La AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
;#CHANGE IT TO B Y. 


; L: 
iy RESGRN HERE 1 RTO ORDER BITS ARE ON TOP OF THE STACK 
t}HIGH ORDER BITS ARE IN SHIOCT 


DROW Y OVO OTOY 


aoe 


eh ee 
WOONOU CWle-O 





1 11646 SRDOCT: MOV (SP) ,-(SP) ss DE £ FOR THE 
1 ieee 000004 o00002 nO 4(SP5,2°SP) eT Reut FuRBER 
{sere Bidive roy Bi-te) Feu BY era 
15574 01 MOV Re! = ) 33 TREK 
15571 1048 1$ ROL IN ;;READ AN ASCIZ LI 
1560¢ Bebb MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
1 cLR Re ?;CLEAR DATA WORD 
i 2S: hOVB (RO)+,-(SP) ;;PICKUP THIS CHARACTER 
2530 01561 BEQ 3$ ::IF ZERO GET OUT 
EE a i iam 
ft i 
es3S Ol ae Ri 3;*8 
i Be #tC7 (SP) ;;STRIP THE ASCII JUNK 
i eR Fie 1 at IN THIS DIGIT 
1 3S: T (SP)+ >: CLEAN TERmINATOR FROM STACK 
4 i 40 M RI, 12(SP) ;; SAVE THE ReSuLS 
4 V (SP)+ + TACK INTO Re 
13650 Roy CBS siPOP STACK INTO Re 
15654 MOV (SP)+;RO ;;POP STACK INTO RO 
9 BLBEES sHrocT: Rt 0 RE GH ORDER BITS GO HERE 
: L. APT COMMUNICATIONS ROUTINE 
os RERESESEESESEREREEERARESSRRASSSRERRSRRERRERRRRRERRRRRRRKRRRARER 
1 015662 016126 $ATY1: MOVB #1,SFFLG 3;TO REPORT FATAL ERROR 
585 13ere 016124 SATY3: HOVE ry SHF LG :;T0 TYPE A MES 
geod i 2700 016126 SATYA: MOVB 31. SFFLG ;;TO ONLY REPORT FATAL ERROR 





MAINDEC-11-DRLPD-A 


ORLPD.P11 


Seep 818708 Oloive 


Seg 


BUS 


De ee he te me bt Be be fe bn bh Be ee ee bs be de be be pe bm ee ee 


POCO TOO 


-_ 


a 
Zone 


Be ooee Sie GRIT ERoRa Mano BRE Rae Gralsa 


1 


4 
4 


if 


“I 


— 


SSREDRE ESE RENE SRS SES 


ee 
ooo 
ares 
rou 
——— TU 
PRS 


> = bb 


PUN use Oe 


MACY11 27(654) 


MOS 


14-DEC-77 20:22 PAGE Sl 


APT COMMUNICATIONS ROUTINE 


016124 


ogr480 


000100 


es 





MOV RO, -(SP) 
MOV R1’-(SP) 
TSTB MFLG 
BEQ % 
CMPB ss BAP TENV, SENV + 
pire TSPOOL , SENVM 
Vv a4(SP) RO 
1S: AbD sadaryPe 
Rov. RO 
MOV SMSgAD 
2s: TSTB (RO)+ 
SN Sscap,RO 
HOV «RO, SMSGLGT 
Nov Ba’ Snee TYPE 
3s nO 34 SP2,48 
HOY 12?776,2¢SP) 
4S: .WORD O- 
SS: 
10S: agg" fe 
Nv 
us: BP bRdorvee 
Rov d4tSP SFATAL 
INC saécTyPE 
12S: tne rte 
L 
By Ie 
+? 
SHELG: oe rt) 
SFFLG: ‘BYE B 
APTSIZE 
APTCSUP=04) 


-SBTTL TRAP DECODER 


;;PUSH RO ON STACK 
PUSH R1_ON STACK 
ti A MESSAGE? 


EGET ig 


Ha ee: hai RMT SS ION? 
IN Peteoox 


Ha END OF MESSAGE 
ae START OF MESSAGE 


CCR Le all 
a a MSO. BORB AGAR bBDKERE 
ti PUSH } 277 STACK 


ii |REBQRT FATAL ERROR? 
RUNNING re APT? 


AL FLAG 


j SRTEHRESESERENSENER ER EH SHEN EE ETE TE OF THE“ TRaP INSTRUCTI 
LOWER OF THE “TRAP” I 


t&THI 5 owes WILL 


PICKUP THE 
HAND USE IT TO INDEX THROUGH 


RUCTION 


T 
THE TRAP TABLE FOR THE STARTING ADDRESS 


SEQ 0065 ~ 


~ 


"9 Aad 27(654) 


vonmmmnnnnne © 
WOnNCU CWO -: 


fur 


Wr 


ooooo4 o00002 


Miatdutatatatatatatat stat ata taal 
DRO Sasa Eee SOMME REM CERN as 


cS A 


NOS 


14-DEC-77 20:22 PAGE Se 


SEQ 0066 


*#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
 ¥GO TO THAT ROUTINE. 


STRAP: MOV -(SP) ;; SAVE_RO 
MOV Brees RO 3;GET TRAP ADORESS 
TST -(RO) ;;BACKUP BY 2 
MOVB (RO), RO >:GET RIGHT BYTE OF TRAP 
ASL R ::POSITION FOR I 
MOV $TRPAD(RO),RO ;;INDEX TO TABLE 
RTS RO :;GO TO ROUTIN 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
STRAP2: MOV (SP) ,-(SP) ;;MO T PC DOWN 
MOV 4(SP5,2(SP) $50 PSW DOWn 
RESTORE THE PSW 
.SBTTL TRAP TABLE 


;*THIS T CONTA STARTING ADDRESSES OF THE ROUTINES CALLED 
; ¥BY Fue er ape I MRUCTION. 


: ROUTINE 
étrRPAD: .WORD STRAP2 
TY ; ; CALL=TYPE TRAP+1(1 ) TTY TYPEOUT ROUTINE 
TY i }CALL=TYP TRAP+E( 104408) TYPE OCTAL NUMBER (WITH. LEADING. ZEROS) 
TYPOS} iCacL=TYP TRAP43( 104403) T TAL 1 
TYPON j }CALL=TYP TRAP+H( 104404) TYPE OCTAL NUMBER {AS PER LAST CALL) 
TYPDS }}CALL=TY TRAP+5( 104405) DECIMAL NUMBER (WITH SIGN 
SGTSWR ;;CALL=GTSWR § TRAP#+6(104406) GET SOFT-SWR SETTING 
SCKSHR ;;CALL=CKSHR — TRAP47(104407). TEST FOR ¢ N_SOFT-SuiR 
CHR ij iCALL= TRAP+10( 104910) TTY Y Weed ere ROUT INE 
th 6GfGACCSRDCIN © TRAPS ACLOM4 A) TTy TRING ROUTINE 
T jiGacc N  PRapsisciowia) NUMBER FROM TTY 


agen 


Us ie Pijcms Pere. as LPA-11 
iSTHEN Tea ee VAC TAOKE iy, Shave we 


CALL? JSR. RS, SLPAI 
pouranes REQUIRED: hOB. 
i RE THO SaNe tn SABDR, DOES NOY EXSIST. IN THE LIST. 


;ADOR. OF DEVICE ADDRESS. 


ee ee 


MAINDEC-11-DRLPD-A MACY11 27(6S4) 
ORLPD.P11 TRAP TABLE 
4 
S 016212 
Oibele 013746 000004 
016216 000413 


V2on-o 


NN 
NG’ 


tatatatatatatatate 


oe 


012737 O16e44% O00004 
005237 170000 
Raat 016240 


O000 


emer ee 


sagen 
NETS SRO 


7 
7 
016264 052777 oO40000 163072 


HOSS Loto 
2 
i 
n 


104000 163054 


Byyy 
=) 
Ww 


N89 QERRRR OO 


z 


So oe 6314 777 OO00040 163042 
eae 


016 012777 000004 163034 
016334 004S37 O20002 


BOE 


14-DEC-77 20:22 PAGE S3 


SLPAI: 


us 


30$: 
31S: 


30$,4 
70000 
65S 
4g 
7>98 
1$ 
SP 

=) 


+, (SP)+ 
SP)+;4 
SAERR 


RS, SLOAD 
BRUEXS 
#B1IT14, IKMADO 


anG® acd} ~-s 


R1,-(SP) 
R1 
R1 
ey 


;ALL THIS JUNK MUST BE REMOVED! ! 


;LOAD MICRO-CODE. 
;FILE “DRLPXe.OBJ” 


; ISSUE KMC+DMC INIT. 


;"HANGS” HERE THEN KMC-11 ERROR. 


;STAL 


| gdhdnetheahinte neem 


25s 
#8175, JKMADO 
3 


#4, IKMAD2 
RS, STOUT 


;SLAVE READY? (READING IPBM SR) 
;FATAL LPA-11 ERROR SLAVE NOT READY. 


; READ 


;~TOUT-CHECK FOR TIMEOUT 


L FOR DMC-UP 


;SET RUN, AND ENABLE ARBITRATION. 


FAST PATH 


;/TIME-OQUT_ERROR 
:/7WE FAILED TO COMPLETE 


37 
; “CUR 


RENT OPERATION. 


SEG 0067 


CO6 


MAINDEC-11-DRLPD-A MACY11 27(654) 14-DEC-77 20:22 PAGE SY 
DRLPD.P11 TRAP TABLE SEQ 0068 
2718 ;/CONTINUES IN THIS LOOP 
2 :7WOULD MAKE US “HANG” HERE 
g é 016342 000774 BR 4S 
7 ;/RETURNS HERE-FROM-TIMED OUT. 
e7e4 O16344 122777 000377 163016 cnPe #377 , AKMAD2 :WAIT TILL KMC DONE COMMAND. 
if O1 4 err? 000377 163012 MPB #377, aKMAOM ;IF FAST PATH=377 THEN ERROR. 
728 016364 104000 ERROR ;IPBM ERROR (SLAVE SIDE) 
e729 :YOU MUST RUN IPBM DIAGNOSTIC. 
7 01 2777 000004 163000 35S: CMPB #4, IKMADY 515 THIS THE CORRECT VERSION OF MICRO-CODE? 
7 B} 4 BEQ cs : YES-CONTINUE. 
7 177777 8-1 
34 O16 1140 BNE Ss 
2735 O16404 005227 177777 INC 8-1 
Hei BieMie Ros4Or 016420 aia ozs TYPE 1Z STR 
7 tEgt a6 BR C3 > GET oven tue RUNG, 
2739 ‘ ij87S: ASCIZ <2000"W ARN IA’G THIS PROGRAM WAS DESIGNED TO RUN WITH VERSION 4” 
eri 616820 1o4401 016526 i TYPE 695 3; TYPE asciz STRING 
74 16) 30 BR bgs >3GET OVER ASCIZ 
ers : iiss: “ASCIZ <200>"MICRO-CODE: ANOTHER VERSION CODE WAS DETECTED.” 
ers B1be0g 104401 016614 : TYPE 71S 3; TYPE ASCIZ STRING 
746 O166i2 000434 BR >0$ -:GET OVER ASCIZ 
747 -:71$: .ASCIZ <200>“THIS MAY OR’ MAYNOT Rate FALSE ERROR TO BE REPORTED. ”<200><200> 
ca 016704 >O$: 
2750 016704 112737 177777 017036 SS: MOVB #O-1, 118 ;DAC C FOR SLAVE. 
Soes BiestG Barres ime CRD RO Pea RB achEDs © POOR 
ooo000 6S: CMP (Ri); : ACHED? 
2753 016720 001444 - BQ 10$ 
75s O1b ree 11399 61736 162440 MO Lis aKMADY ;FIFO DATA 
3 OtESaG 139 tee dove athe 1a ee TNO TE OF DEVICE ADDR TO SLAVE 
tat Ries aa b45333 bP5¢38 J PC, 20% : 7 
2759 016750 112177 MOVB (RL)+, 3KMADY ;SEND HIGH BYTE OF DEVICE ADDR. TO SLAVE. 
sri 016754 37 017040 JSR Pc, 20$ 
7 016760 777 OO0002 162376 7S: BIT #BIT1, aKMADO ;WAIT FOR FIFO DATA 
2763 016766 1374 BNE 7$ =] DATA. =0 DATA. 
87 4 016770 112777 oo0002 162372 MOVB #2, IKMAD2 ?READ FIFO. 
E 016776 QS: 
e767 16776 004S37 o20002 JSR RS, S$TOUt ;-TOUT-CHECK FOR TIMEOUT 


68 
7 017002 104000 ERROR :/TIME-OUT ERROR 
2776 ue FA ED TO COMPLETE 
771 :/CURRENT OPERATION. 


DO6 


MAINDEC-11-DRLPD-A MACY11 27(6S4) 14-DEC-77 20:22 PAGE SS 
ABLE 


DRLPO.P11 TRAP T 
77 ;7CONT S_IN THIS LOOP 
3778 + OULD MAE US SANE” HERE 
208 017004 000774 BR as 
7 + aT eee HERE -FROM-TIMED OUT 
7 017006 22777 000377 162354 CMPB #377 , AKMAD2 *WAIT . 
27 17014 1370 BNE as . 
SOB? BtSBAS ABTSSG eesse beg? = gran HUBS Be ¢° Ae, FE TBRREO? 
2782 , ves saat on ;SLAVE WILL RETURN CODE O IF 
5o8q — a See i Yr =1 IF GIVES ERROR. 
2785S 017030 ooso41 -— CLR ait = $GET RID OF REFERENCE TO BAD ADOR. 
78? Bt5836 Bag SHe Rey ae . ;RETURN ALL ADDR. CHECKED. 
2789 017036 000000 118: -WORD O ;HOLDS DAC CODE PLUS OFFSET 
2790 :TO SLAVES ADOR. TABLE. 
578) 017040 112777 000003 162322 20: MOVB #3, IKMAD2 ; ISSUE FIFO WRITE 
: 17046 004537 o20002 . JSR RS, STOUT ;-TOUT-CHECK FOR TIMEOUT 
| 79% 0170S2 104000 ERROR -OUT ERROR 
2797 Ai "Fal ED TO. ow 
5733 Be Re tA S LOOP 
US “HANG” HERE 
2801 
gate 017054 000774 BR 21S 
Lane, COO, tice TIMED OUT. 
017 2777 000377 162304 CMPB #377, IKMAD2 WILL AR ee URN Aa "377" 
17064 1370 BNE 21s 
306 017066 000207 RTS PC 
e808 017070 oo0000 SAERR: .WORD 0 ;=0 IF ADOR. LIST OK,=1 IF BAD. 
2811 
- PA- 
geig fATHIS SYB CODE YR TO pore. a5" CODE INTO LPA-11. 
eg14 i WOR ;ADOR. OF MICRO CODE. 
eeie 5 NOTE: ARRapPNS BE FL e MUST END IN -1 DATA. 
2818 ‘ 
2819 017072 oO10446 SLOAD: MOV R4,-(SP) ;SAVE RY. 
17074 1 46 MOV RO 5 3P) ;SAVE RO. 
I 17 2B 1S: MOV $+. RO ;GET PROG. ADOR. 
171 077 162260 CLR sichabo ?CLEAR CSR 
e8e3 017104 77 ieee cLR SKMADY i See BR CRAM ADOR. 
17110 77 162246 2S: 5 #2000 , IKMADO LECT CRAM. 
2825 017116 012077 162256 MOV (0)+, aKMADS :WRITE DATA. 
| 
| 


a 
REESIBR 


ee ees 


SBT 


——— 
Orr 


NNNNNNNN NNNANNANNNG 


oo 


NNN 
= 


O0000 9200 AO0000000 GO00000 
foro 


el de eee 


NNNNN 


rororofuru 
PLEVOS 


Oo 
— 
a | 
a 
3 


EN os 


rm 


NN NNNANNNNNNN 


WW ror 


FO for 


E06 
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ABLE 


SEQ 0070 
929900 162234 Bis 820000, @KMADO SET CRAM WRITE 
ibee34 INC @KMADY + OPDATE CRAM ADDR. 
1 cne (0), #1 ; L DONE? 
igeeee CLR aKMADY ic Le CRAM ADOR. 
1 6 MOV -2(5),RO MICRO CODE ADDR. 
BNE Ss :NO - REPORT AN ERROR. 
177777 cn (0), #4 ALL DONE? 
162160 CLR aKMADO 3NO - DESELECT CRAM. 
162164 INc SKMADY :UPDATE CRAM ADDR. 
4S: MOV (SP)+,RO ;RESTORE RO 
MOV (SP)+)R4 j RESTORE R4 
RTS tEXIT 
Ss: one sa ;COME HERE ON LOAD ERROR 
INCB RY UPDATE RROR COUNTER. 
BPL 1S IF ich MANY, TRY AGAIN. 
ne pik Y ERR OU T 
BR 1$ fod S CONT ne 8 GIVE IT 
es i T I a } 
: THAT THAT WOULD WORK. SI I’ VE 
‘ALREADY GIVEN IT 177 (OCTAL) CHANCES. 
?TRY RUNNING THE KMC-11 DIAGNOSTIC. 


THIS ROUTINE ISSUES A WRITE COMMAND TO tHE LPA-11 


5% 
; CALL = JSR RS, STLKW 
$i . WORD 9 ;OFFSET OF DEVICE ADDR. 
i “WORD ‘DATA TO BE WRITTEN 
STLKW: MOV RO 5(SP) ; SAVE RO 
MOV (53+, :GET DEVICE OFFSET 
40 BIS 340, RO ADO WRITE CODE. 
017514 ISR PC, SLPW :WAIT FOR FAST PATH READY 
17340 Vv Wl 
116 MOV 0, SkMApY 
162104 MOVB #5, aKMADe ; ISSUE FAST PATH WRITE 
17514 JSR PC’ SLPW :WAIT FOR RDY 
017342 MOV (S53 w We 
162074 MOVB (24 MADY ;WRITE LOW BYTE DATA. 
000005 162062 MOVB #5, JKMAD2 ;FP WRITE 
017514 JSR PC; SLPW 


| 
sae 162200 3S: aI tROS Ss SKNABE i Bet LECT S CRAM 


MAINDEC-11-DRLPD-A 
ORLPO.P11 T 


RAP T 

111537 017344 

Hee SuzBs3 
444 OS 

ee 


me 
or 


17514 
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162040 


161774 


161742 
161736 
017S12 


FO6 
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STLKR: 


1$: 


vB (5),W3 
MOVB (5)4, JKMADY ;WRITE HIGH BYTE 
MOVB #5, aKMALE 
JSR PC’ SLPW 
MOV (SP)+,RO 
RTS RS ;EXIT DONe. 
0 
0 


;% 
j #THIS ROUTINE ISSUES A READ COMMAND TO tHE LPA-11 


3H CALL = JSR RS,STLKR 
2 . 0 ;OFFSET OF DEVICE 
: i *RETURNS HERE 

; XDATA IN WORD SOATR 

’ 

MOV RO -(SP) ;SAVE RO 

MOV (53+,RO ;GET OFFSET 

BIS #300, RO :ADD_READ CODE 

JSR PC, $LPW :WAIT TILL READY 

MOVB RO, JKMADY 

nove #5; aKMAD2 ; ISSUE WRITE FP 


MOV RO,RD1 
JSR RS, STOUT 


;~TOUt-CHECK FOR TIMEOUT 


;“TIME-OUT ERROR 
3; “WE pate TO COMPLETE 


:/C N ; 
{CONTINUES N THIS LQOF 
;/WOULD MAKE US “HANG” HERE 


BR 1S 
; /RETURNS HERE-FROM-TIMED OUT. 

BIT #BITS, 3KMADO :FAST PATH GOT DATA? 

MOVB #4, IKMAD2 ; ISSUE FAST PATH READ 

JSR PC’ SLPW 

MOVB aKMADY , SDATR ;GET LOW BYTE 


JSR RS, STOUT 


BR es 


;~TOUT-CHECK FOR TIMEOUT 


;“TIME-OUT ERROR 

;7WE FAILED TO COMPLETE 

; “CURRENT OPERATION. 

; “CONTINUES IN THIS LOOP 
;7WOULD MAKE US “HANG” HERE 


SE@ 0071 


Pil 


2934 


IIa abe E PRUE URU Daa aaad oes Sau ea 


-DRLPO-A 


MACY11 


TRAP TABLE 


oO 
= 
oO 
— 
a 


Be a 
—MKWNeE 


ie | 


N 


000377 


000020 


017566 


27(654) 


161702 
161676 
017513 


161642 


161620 


GO6 
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RETO BATH REROYe SUMED ouT. 


BIT _ , KMADG 
; ISSUE FAST PATH READ 


BNE 
MOVB 84, JKMAD2 


JSR PC’ $LPW 
MOVE aye ASOATR+1 ;SAVE HIGH BYTE 
RTS 


ROI: 0 

SDATR: . WORD 0 

?THIS ROUTINE WAITS FOR KMC-CODE TO bECOME READY AS WELL 
;AS FAST PATH TO BE READ. 

CALL = JSR PC, SLPW 


:I1T WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 
; THE MICRO-PROCESSORS AND REPORT AN ERROR, THEN HALT. 


SLPW: nov Ri, -(SP) ;SAVE R1 
1S nee 4377, aknace ;FINISHED INSTRUCTION? 
INC Ri ;TIME OUT? 
BNE 1$ 
BR 10$ 
2s: BIT #BIT4, AKMADO ;FAST PATH READ? 
N 2 ;NO - TIME OUT? 
BNE 2s 
BR 10$ ;YES - REPORT AN ERROR 
3S: MOV (SP)+,R1 ; RESTORE R1 
RTS PC tEXIT 
10S: 
TYPE 65S 3; TYPE ASCIZ STRING 
BR 4g °GET OVER THE ASCIZ 
--65$: .ASCIZ <200>#LPA-11 Faults 
64s: 
11S: HALT sLPA-1 FAULT RUN LPA-11 
BR 118 :BIAGNOSTICS. 


te VEGE ABBRESS ON THE TO BUSS FOR URITE ONLY. 


:% FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN USED 


MAINDEC-11-DRLPD-A MACY11 27(654) 


ORLPO.P11 TRAP TABLE 
a 
3 
23994 017610 010046 
e995 017612 010146 
4y 7’ 001412 
e322 BIELY gue7ge 
2999 017622 005710 
Se lees ooe000 
mae Sires Ob sas 
3035 017636 vial 
017640 010137 017656 
3007 ioeue 7) 17 
see res Biase BIrésa 
ant 17656 
Bis Oi ees 
1 4 1 
3o18 O1Es8 ooo00c0 
15 Biers Beet 
1 016212 
18 1 14le 
3019 017704 000755 
3020 
Et 
302 
3023 
Oe 
3027 
a 
3034 
3035 
30. 017706 Q1004%6 
patel 017710 010146 
3039 017712 012700 OO0141e2 
3040 017716 OOSO001 
3041 017720 005710 


HO6 
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T HAVE TO INITIALIZE THE LPA WITH 
te E FRAP RoE SHO = 
# WHEN THE ADDP. IS KNOWN BY THE LPA, DO THE OUTPUT BY 


* $TLKw 


SOUTLP: MOV RO,-(SP) 
MOV Rl, *=(SP) 


MOV #.OVLS,RO 
Rl 


CLR 
1S: TST (0) ; TERMINATOR REACHED? 
RES 498) cons i NEG HIE otra’ OR IN LIST? 
BEQ Fs} 
INC R1 
aR 1s 
2s: nov R1,38 ;SAVE OFFSET, DEVICE KNOWN. 
MOV 9(5)+ 4g get Ta TO BE WRITTEN 
ISR S,$TiKw ITE 
3$: -WORD O i DEVICE OFFSET 
4§: .WORD O :DATA TO BE WRITTEN. 
MOV (SP +, Ri 
MOV (5P)+;RO 
RTS RS 
10S: Bt 95), (00+ ;SAVE ADOR. 
SLPAI 
. WORD re St 
BR es 
isTHIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 
O A DEVICE ADDR. ON THE I70 BUSS FOR READ ONLY 
Herp T LL Mh a T S BEEN 
#USED BEFORE IP Pe NOT veFo NI TTAL Ze THE LPA 
ie 
jaune T HE ADDR noe KNOWN WE CAN DO OUTPUT THROUGH 
i CALL THROUGH MOVEI DATA,ADOR. 
i WHICH EQUALS: 
1% JSR RS, SINLP 
i WORD XX ADDR OF DEVICE 
i .WORD YY ADDR TO STORE READ DATA. 
SINLP: MOV RO, -(SP) ;SAVE RO 
MOV R1i,-(SP) ;SAVE Ri 
Moy 8, OVLS, RO ;PROG DEFINED ADDR. LIST. 
1$: TST (0) ;EOL REACHED? 


‘SAVE RO 
VE R1 


; PROGRAM DEFINED LIST. 


SE@ 0073 


2 
58 
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TRAP TABLE 


001420 


000000 


017750 
017346 


017512 


oooo00 
016212 


020036 


020036 
020040 


020040 
oooo04 


I06 
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BEQ 10% ;YES - DEFINE NEW ADDR. 

CMP a(S), (0+ ;ADDR. MATCH? 

BEQ 3 

NC 1 

BR 1§ 
2s: mov R1 38 ;SAVE LIST OFFSET 
naree JSR as STLKR ;GO READ DEVICE 
3$: | .WORD O ;OFFSET OF DEVICE 

MOV SDATR,a(S)+ ;STORE DATA. 

MOV (SP)+, ?RESTORE R1 

MOV (SP)+')R :RESTORE Re 

RTS RS :EXIT 
10S: MOV aS), (0)+ 

CLR (9) 

JSR RS, SLPAI 

.WORD .DVLS 

BR es 

STOUT ROUT INE USED 1 WATCH IF 
$i WE’ RE IN TOO-LONG 
3H CALL= JSR" RS 
$i ERROR 
;* BR 
i ;RETURNS HERE NO ERROR 
; 
STOUT: CHP RS, SSAD ;SAME ADDR? 

MOV RS $SAD NO-SA HIS ADDR. 

cLR sch iCLR CN At ADDR. 
1S: INC SCNT $ OVEREL Ow? 

BMT 3$ YES-ERROR RETURN 
2s: AD #4,RS NO-NON ERROR RETURN 
38: RTS RS p= URN. 
$SAD:  .WOR ;CONTAINS LOOP ADDR. 
SCNT: WORD - ;# OF TIMES AT ADOR. 


i me Fab BPS bivariate Pet 


WE CLR “.OVLST” WHIC 
He AND DMC AS SOON AS A DEVICE IS REFERENCED. 
CALL=JSR PC, SRESET 


;RETURNS HERE. 


rt 


ec erasers 


HSE ARa0E 


0 rESET BOTH THE 


SEQ 0074 


Out 
k ;RETURNS HERE ON TIMEOUT 


INARILY 
ION. 


;REPLACES “RESET INSTRUCTION 


~~ 


2 


ao 


SOVTFHEOV—OSBVERLO-OSBVON LOV-OODITON LOK OSB IRR LO 


ee ae ae me ae ee ae ae ee ae Bee ee ee ee nme ee ae ee ee ee ee ee ee eee 
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TRAP TABLE SEQ 0075 
O20042 oo0005 SRESET: RESET ;RESET THE WORLD. 
;% MOV 92$,1$ ;/READ DEVICE REG 2$,PUT DATA IN 1S. 
4 905737 017070 TST SAERR SIF RROR,L 
1004 BNE 10$ WAS AN ERROR. 
02 062737 o00002 020076 ADD 82,25 


VICE ADOR. 
f WE HAVE TO PROTECT as SELF! 
K 


73 000764 ao BR SRESET 
Qeag7s 85 B00 1$ RIORD 5° JUNK LOC 
0076 160000 2s: ‘WORD 160000 ;DUMB ADDR. FORCES INIT OF DMC/KMC. 
'SDELAY- ROUTINE TO GIVE @ HINOR DELAY. 
; IS NOT TIME DE NT C SENCE 
: NOT USED TO GET CIFIC TIME BUT 
: JUST A LITTLE DELAY. 
; THAT IS UNLESS A REAL TIME CLOCK IS PRESENT! 
: THEN WE’LL GENERATE A TIME BETWEEN 16MS TO 32 MS 
: CALL= JSR PC, SDELAY 
9201 SDELAY: ’ 
1 737 O20162 TST RTCCSR ;CLOCK PRESENT? 
0201 BPL os 
1 020152 MOV #2, TIME 
114 777 Oil 000040 BIS #115, IRTCCSR ;START CLOCK 
1 37 6 CL PS 
i bo0ise 1S: TST TIME 
134 o00022 ere ARTCCSR :STOP CLOCK 
0201 RTS PC 
12014 108637 020152 10$: INCB TIME 
Bedi 46 13 BNE 10$ 
0201 000207 RTS PC 
020152 oo0000 TIME: .WORD O 
D154 005337 O201S52 CLKINT: DEC TIME 
0201 Bocb02 RTI 
01 000000 RTCCSR: .WORD O ;CLOCK CSR IF USED. 


3% 
;*THIS MACRO ALLOWS THE OPERATOR TO TALK TO 
;#ANY DEVICE ON THE I70 BUS 

;#USER MUST START AT THIS ADDR. 


~ 


KO6 


NATNDEC- 11-DRLPO=A MACY11 27(654) 14-DEC-77 20:22 PAGE 62 
DRLPD.P11 TRAP TABLE SEQ 0076 
3150 ; HE MUST SA SAY UEETHER “E” FOR EXAMINE, OR “D” FOR DEPOSIT. 
1 ; XNEXT, BE ust 6 SUPPLY BN 
1 3 Ped IF AOR. NOT POUND OB 170 BUS, A HALT 
15S 
1 164 SUTK: 
132 ea 4 005037 o01412 on CLR .DVLS 
128 Oe0i 104401 020176 7 TYPE goss ;; TYPE ASCIZ STRING 
166 174 O00040S por BR oz a a: Ore ::GET OVER THE ASCIZ 
ibe D2021 64s: ° ” 
a B50810 105777 160730 iS: TSTB = ASTKS 
164 Oe0el4 1 BPL 1 
3165 16 1177 160724 020340 MOVB aSTKB, 20S ;GET oll 
166 104 4 g2034 TYPE, 20S > ECHO NEXT MESSAGE. 
16 ier 40 020340 Bice #240, 20 jSTRIP P RIP PARITY, ic 
188 6 2es7 020336 MoV (SP)+, 14S ; 
12 3707 020340 000104 cHPe 20s, 8 D ;DEPOSIT? 
3178 
317 004537 017706 ISR RS, SINLP ;GET DATA 
174 920336 2s: .WORD 148 
178 ‘WORD S$ 
138 geg26H 013746 020274 MOV 5$,-(SP) igo S$ FOR TYPEOUT 
178 104402 TYPOC YPE--OCTAL ASCII(ALL DIGITS) 
3173 gene7e 21s 
3180 74 Ss: . WORD 
31 020276 10S: 
318s Bens0s dpoupy 27030" Be bes 5 ee OVER THE Bac tz 
31 --67$: .ASCIZ <200>sDATA= # °*’ 
1 14 66S: 
1 14 1O4N12 RDOCT 
i 16 012637 020334 MOV (SP)+, 13S 
3190 020322 004537 017610 11S: ISR RS, SOUTLP ;OQUTPUT ROUTINE. 
19 0336 12S: WORD 14% :DEVICE ADDR. 
i 334 ; WORD 138 :DATA 
194 
3195 020334 o00000 13$: .WORD O 
3196 0336 14S: ‘WORD. O 
319 1 1 O42504 O44S26 20S: "ASCIZ <1><200> "DEVICE ADDR= # 
3138 0346 042503 oa44G 042104 
3139 0354 036522 040 — 
3201 
3202 
3203 
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1 TRAP TABLE 

020360 012537 020370 
; owe 


LO6 
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$PUTS: 
18: 


es: 


Han UNF OU Ae | 
Leet Ye nie Neri Be 


DVLS FOR A/ 
BuTine’s WHOLE BAB ee Is 

FILE “ORLPXe” FOR 
E SAMPLES, THE USER PROGRAM MUST SET UP 


a, eh.” this ROUTINE: 
8B 


JF BRD Rut 
;RETURNS HERE sKnG BSEL 3.6 
(UNTILL One D 


nae eycamanee ack 
wy 

A co eee 
GNe AND none, SaePE TA?O BSEL 2. 


BSEL 4 
5)+,1$ ;GET ADDR OF ADDR. OF A/D 


5,Sinip 


az0 ae 
ERODR. T ROUTINE. 


7" PERMINENTLY. SET UP 


SEQ 0077 


MAINDEC-11-DRLPD-A MACY11 27(6S4) 
ORLPD.P11 TRAP TABLE 


3883 21110 00000 
3260 0e11Se 
3261 ooo001 


14-DEC-77 20:22 PAGE 64 


apta7: O- 


+40 
=. +4 
. END 


06 


| 


SEQ 0078 | 
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- DRLPD.P11 CROSS REFERENCE TABLE SEQ 0079 _~| 
ABASE = 17 1Sis 264 305 
ACDWI1 = 264 307 
AC = 26 | 
ye = 26 279 
ACRL l2 980 1069 1216 1222 1248 1564 18638 

04 998 1301 1315 1437 1439 1621 1711 1761 32438 
ADCNVT O10438 1188 1294 1299 16198 . 
ADCS 1 ieee" iPad S42 1005 1101 1104 1107 1110 1375 1626 1629 1634 1638 
ADCS o10B54 51S S16* 16668 

1342 3568 517 548 1113 1653 
ADDWO = 264 309 

i= 264 310 
10= 264 319 
ll= 264 320 
l2= 264 321 
1 264 322 
14= 264 3e3 
Se 264 324 
= 264 311 
= oO 264 312 
= OOf 264 313 
= 00 264 314 
= O00C 264 315 
= OOF 264 316 
= Of 264 31 
= 264 318 
¥ sey s«Se 
= 
ADHIGH 1237 1714% 1717 1719% 19718 
ADL OW 1223 171ss 1720 1722% 19728 
ADTB1 1305s 1345 474% 
apt 1304% 1344 498 
T 1305* 1345S e518 
ADTBY 1306% 1348 32538 
ADIBE i30gs {30g 0 3e78 
ADTBS 1309 1349 3259 
ROURD | 98S* Sage 993% 995% 1101 11368 
983% 9s4* 1002 118S5* 1186* 1187" 1290% 1291* 1292 1295* 1296% 1297% 1626 
1635 1641 19388 
RENV = 264 275 
AFAYAL= seu ts«G 
= 
AMADRIi= 264 292 
264 296 
: 5eus«*SG2 
pnate= seu Sts«SG 
tJ 
Annes soy 714 
AMSGAD= 264 272 
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MAT -11-DRLPO-A Yll_ 27(654) 14-DEC-77 20:22 PAGE 6&6 
DRUPBS bil CROSS REFERENCE face SEG o080 
Ge Q 4 7 
Y= 4 
ANTYPi= uy 
ANT 4 
ANT 4 
4 
1 1 8 
y 
RER r 4y 
APT a 
AP Ss 2560 26028 
APT 46 
APT 2 te 26038 
ATE 4 
AUNTT s 4 ca 
CTR 76% 972% 1161 1276 1355 1S46 19408 
Cc se) 3 395 396 





y 
197 
igre 
1767 1279 19738 
1740 19798 
19808 
19818 
ne isos 
AVGCNT 1eN8 i767 19908 
AVG TAG 1437s 14398 14428 
BVRRGE i 3 1633, 1321 1713% 1714 1715 1723% 1729% 17328 #1739 1747 1748 19788 
a te ls 
Ax 1004" 11398 
BCOBIN 1169 1180 1282 15778 1609 
BC 15808 1604 
1ssee 1598 
1868 i266 © jeco" 16068 
AB 1420 1178, 1174 1176 1181 1283 1284 1578 1579% 16108 
BEGIN 15> 4038 2201 
BEGINI 178 4oDe 
tho = 1 1358 
T = 1258 135 
T Ps 1248 134 
TO2 = 1238 133 
BITO3 = 1 1228 132 
BITbe = pep i5d8 «130 
BITO& = 000100 1198 129 


SE@ 0081 


CO? 
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CROSS REFERENCE TABLE 


MAINDEC-11-DRLPD-A 
manele 


1603 
26448 


1S84% 
2108 


1582 
e08e 


in n 4 

moe 8 z 

™ fu - = 

3 z ™ Mo io w mo 
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a x S& * @ §& = 
& & os Pa ee « 
o- oO o wo nN -_ or oro 2s 
age § & # B FF HB B Be a 2 
- - sa - _ | 


Sr oyawoonnry MoT w 
Bata Sas a 8 


9S4# 
136" 
ares 
1073 
$33 
7893 
779 
7 
77 
. 
7 
9588 
9e4 
Bee 
708 
71le 
711 
862 
860 
034 
1 Bd 
639 
629 


= S& “x « 
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ORLPD.P11 CROSS REFERENCE TABLE 
ia “goa 493% 336 16658 
FR = 1 8 g28) 2371 
CRLF = 18 2371 
Cc 1 Sa ep 1094 
Cc 1 8 1 
r} ky 1 
ier s 70 a 451 
T 1 4 1 1 8 
DECPNT 11042 1673 1677 1679 1684 17018 
T 1 1 4 16718 
t fei. EBs lee 
LAY % # 1622 1656% 19588 
AY1 lee 1 1630% 19598 
0 4 1 ge 
T 10798 
t 204 ipeis 
Bars eeete 1888" so02e 
DH1 le 348 19298 
NT 11036 1 ces 1681# 16998 
T 1 1 % 1676 1888 Apo0e 1893" 1696 16988 
142 1s ye4" 4YoQs 63% ess 
174 1748 G 
12263 18648 
DRLPX2= HHHREE GCG 2692 
OSWR = 177570 Ss 240 450 
T - a), 19368 
private og 19 - 436% 
3 Cc 4308 448 WL x 460% 2024 20eS* 2027%  #2030% 
Ie 1} le 174ge 1323 
F 1311 19578 
pal o11126 U ate 17e8 7 8 639 2640 2642 2644 2b4S 2646 2647 2685S 
= 
cet aes ut, afaa «Beas HGS ‘SPBE 
arene net * 780 19528 
HIORDV 013150 1712 1724 1728% 19708 
ther * at eB Eh 
t 18258 6 S66 569 978 1518 1521 1S22% 15708 1S77 
NITA 264 S338 535 1940 
INIT o02e234 38 r 
NIT 20 Se et S74 1550 
0 C= 1438 433% YON 
1364 3788 410 2694* 27028 #2706 2762 e82e% e2824% 2826* 2827 2834* 2839% 2919 
she " D1 366 eee aT 
K 3 88} xt 2711 2724 2764 2778 2792* 280s 2873% #2878 essex 2904* 2921 2938 
KMAD3 001372 3858 3235 3238 


aK wv" 


SEQ 0083 


EO? 


14-DEC-77 20:22 PAGE 69 


MACY11 27(6S4) 


CROSS REFERENCE TABLE 
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DORLPO.P11 


2823% e2828% 2831*% 
1331 194S8 
19518 


2780 

19448 

1295 
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27S9% 
230 
284 
S46 
947 
7S8 
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’ ox LY) wm wo cw on 
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MAINDEC-11-DRLPD-A MACY11 27(6S4) I14-DEC-77 20:22 PAGE 70 
DRUPB Pit CROSS REFERE TABLE SE@ 0084 
OVRHI 11446 1 17808 
OVRLO ALe 4 178e8 6108 
=%000007 % % x x % x 93% ry 3 % 7% ue 
cette Sa a a a cn 
A en ee CCE TE 1e8ee ibecs bux izgqx i3e0e Lagex | Lage 
i 4 igo 4 s state ieee igees 55035 le 19578 1 ~ 16) ~ 1733s 17388 
Se 
bi a 108% 3135% 3138 
PICO pare 947 
P eh 18 948 
PIC re 4 6508 949 
btky ge 950 
PIC4B 7498 
pine = sss 4788 48S 
P VE= 433° 
PL 1 19918 
PL 1791 19928 
PL 1794 19938 
PLUS4Y 1797 19948 
a8 ; 19958 
NT1 19398 
page 976% 987 991 19418 
= 7e8 
PR = 738 
= 748 
PR = 758 
PRY = 768 
PRE . oan 
= 
PR = 738 
<# = r S3 471% 4798 488 3130 
=. 2188" Agios 1671% 
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